Genel Sohbet Bilgisayar/Mobil/İnternet Soru ve Sorunları Tek Başlık

Benzer konu açılırsa yönetim buraya taşısın diye böyle bir başlık yazdım.

Access (VBA) ile excelden veri almaya çalışıyorum. 400 dosya var, herbirinin yapısı farklı bu nedenle hücreleri tek tek okutup almam lazım.

Şimdi aşağıdaki kod a1 e merhaba yazdırmak için. bana ise tam tersi a1 hücresinde ne yazdığı lazım.

Private Sub Komut0_Click()
Dim Ex As Excel.Application
Set Ex = New Excel.Application

With Ex
.Visible = False 'Görünmesini istemiyorsak False
'.Workbooks.Add 'Yeni bir çalışma sayfası oluşturmak için kullanırız.
.Workbooks.Open ("c:\excelim.xlsx")
.Range("a1").Value = "Meraba"




.ActiveWorkbook.Close True '
.Quit
End With

Set Ex = Nothing
End Sub

Özetle c:\excelim.xlsx dosyasının "Sayfa1" sayfasının A1 hücresinin değeri lazım

Kendim buldum, Mor Cuma, hediye likit iptal

Private Sub Komut3_Click()
Dim ExcelApp As Excel.Application

Set ExcelApp = CreateObject("Excel.Application")



Dim WkBk As Excel.Workbook

Set WkBk = ExcelApp.Workbooks.Open(FileName:="C:\excelim.xlsx")



Dim var As String

var = WkBk.Sheets(1).Range("B28").Value

MsgBox (var)

'finally...

If Not (ExcelApp Is Nothing) Then ExcelApp.Quit
End Sub

Tam aynısını yazacaktım çözümü kendin bulmuşsun. Lanet olsun dostum, neden barbaros içemiyorum ben hıaaaa.

yossarian' Alıntı:

Tam aynısını yazacaktım çözümü kendin bulmuşsun. Lanet olsun dostum, neden barbaros içemiyorum ben hıaaaa.

Genişletmek için tıkla ...

Tam aynı espiriyi yapacaktım sen yapmışsın. Lanet olsun dostum.

Tam böyle bir başlık açacaktım baktım var. hemen güncellemek lazım.