Bir dosyadaki hücreyi okumak

[igmox]

bilenler için basittir muhakkak ama benim günlerimi aldı çözemedim.

çalışma sayfasında macro çalıştırıldığında c:\num.xls dosyasındaki A1 hücresinin değerini çalışma sayfasının C2 hücresine yazacak ve c:\num.xls dosyasındaki A1 hücresini 1 artırarak kaydedecek bir makro nasıl yazılabilir ?

yardımcı olanlara şimdiden teşekkürler

 

[halit3]

bilenler için basittir muhakkak ama benim günlerimi aldı çözemedim.

çalışma sayfasında macro çalıştırıldığında c:\num.xls dosyasındaki A1 hücresinin değerini çalışma sayfasının C2 hücresine yazacak ve c:\num.xls dosyasındaki A1 hücresini 1 artırarak kaydedecek bir makro nasıl yazılabilir ?

yardımcı olanlara şimdiden teşekkürler

bunu denermisiniz.

Sub yaz()
Cells(2, 3).Value = "='C:\[num.xls]Sayfa1'!R1C1"
Cells(2, 3).Value = Cells(2, 3).Value
Dim NewXL As Excel.Application
Dim DataWB As String
Dim Wb As Workbook
Set NewXL = New Excel.Application
NewXL.Visible = False
Dosya = "num"
If Dosya = "" Then Exit Sub
DataWB = "C:" & Application.PathSeparator & Dosya & ".xls"
Set Wb = NewXL.Workbooks.Open(DataWB)
Wb.Sheets("Sayfa1").Range("A1") = Wb.Sheets("Sayfa1").Range("A1") + 1
NewXL.Workbooks(Dir(DataWB)).Close SaveChanges:=True
Set Wb = Nothing
Set NewXL = Nothing
MsgBox "İşlem tamam"
End Sub