VBA odczyt z pliku xls

Poszukuje kodu do pobierania wartości komórek z pliku excela i zapisania go do zmiennej, na google nie znalazlem konkretow:/

dzieki za odp

Witam, odwołanie do wartości komórki: Arkusz1.Cells(1, 1).Value, Arkusz1.Range(“A1”)

zapomnialem dodac ze to zew program ma sie łączyc z arkuszem i pobierac dane da sie tak? oczywisice wszystko w VBA

Może albo za pomocą COM - CreateObject (GetObject) i wtedy wykorzytujesz metody znane z VBA dla Excela. Albo drugi sposób via ADODb.

pozdrawiaMM

jak to wyglada za pomocą CreateObject?

Za pomocą GetObject:

Dim xls

Set xls = GetObject("d:\test.xls")


Dim wartosc

wartosc = xls.ActiveSheet.Cells(1, 1).Value


MsgBox wartosc

Set xls = Nothing

Za pomocą CreateObject:

Dim xls

Set xls = CreateObject("Excel.Application")

xls.Workbooks.Open ("d:\test.xls")


Dim wartosc

wartosc = xls.ActiveSheet.Cells(1, 1).Value


MsgBox wartosc

Set xls = Nothing

pozdrawiaMM

Dodane 05.08.2009 (Śr) 9:40

Aha. Jeszcze jedno? To do VBA, czy do VBS? Bo ja napisałem jak dla VBS… Dla VBA trzeba do deklaracji zmiennych dodać ich typy np. Dim wartosc As String

pozdrawiaMM

ha działa wielkie dzieki:)