VBA odczyt z pliku xls


(Oparek3) #1

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

dzieki za odp


(Mich@l) #2

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


(Oparek3) #3

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


(Marcin Miga) #4

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

pozdrawiaMM


(Oparek3) #5

jak to wyglada za pomocą CreateObject?


(Marcin Miga) #6

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


(Oparek3) #7

ha działa wielkie dzieki:)