VBA Zapisanie listboxa do txt - Jak zapisać całą tablicę "listbox" do

Witam wie ktoś może jak zapisać całą tablicę "listbox" do pliku tekstowego?

Robię to w ten sposób...
[code]

Problem w tym że tak zapisana lista wczytywana jest potem do excela do jednego wiersza a chciałabym żeby było wiele kolumn.

Idealnie by było gdyby zapisać całą tablicę z podziałem na kolumny bez używania pętli. : D

Print #fileNo, lst.list(i, 0) & Chr(9) & lst.list(i, 1)

Dziękuje działa tak jak chciałam.

JRV wrote:

Print #fileNo, lst.list(i, 0) & Chr(9) & lst.list(i, 1)

Wiesz może jak wczytać tak zapisany plik tekstowy bezpośrednio do "listboxa"?

karola0921 wrote:

plik tekstowy bezpośrednio do "listboxa"

To nie probowalem.
Zrobil by kwerende do pliku, przypisal nazwe np. 'danelist'
w RowSource wpisal =danelist
Teoretycznie. Sprobuj.

JRV wrote:

karola0921 wrote:

plik tekstowy bezpośrednio do "listboxa"

To nie probowalem.
Zrobil by kwerende do pliku, przypisal nazwe np. 'danelist'
w RowSource wpisal =danelist
Teoretycznie. Sprobuj.

w autocadzie i gstarcadzie tak nie dam rady... ale jeszcze pokombinuje i dam znać.

Nie wiem jakie jest objekty w autocadzie. Treba bylo w temacie slowo 'Autocad', byc moze ktos w tej dziedzinie ma wiedze

miałem podobny problem z jedną z wersji autocada chyba 2007.
Przekształciłem kod pod twój przykład.
zaręczam że działa(sprawdzałem) ; D
Ale u mnie przy 40 kolumnach i 200 wierszach wczytywanie zajmowało 4-5 sekund więc nie jest to satysfakcjonujące.
Użyj tego jak nie będziesz miała innej opcji.

W skrócie działa tak
znajduje znaki pomiędzy chr(9) i wczytuje je kolejno do komórek listboxa. potem przechodzi do kolejnego wiersza.
aha pisane na szybko więc możesz to jeszcze zoptymalizować, myślę o jakieś 30%.

[code]

Jak uda mi się dowiedzieć jak to zrobić prościej to napiszę.

Albo tak:

ten kod JRV działa szybciej, tylko mózg mi już nie pracuje bo jak go używam to przy imporcie generuje mi puste wiersze na końcu.

ReDim itab(r-1, 0)

ReDim Preserve itab(r-1, c)

r = r - 1 po pierwszym wend

a ok / na jedno wychodzi

; ) faktycznie\ jest już ok...wielkie dzięki.