Acces ortamında Excel de işlem yapmak

[tamer42]

Merhabalar,

Access Form ortamında iken

MyArg = "C:\MyFolder\ab.xls"
varRet = fHandleFile(MyArg, WIN_NORMAL)

bu kodla bir excel dosyasını açabiliyoruz,

Yine Access Form ortamında iken;
Açılan bu excel dosyası üzerinde işlem yapabilirmiyiz? Kısaca bir sheet ekleyip kapatacak.

Sub Macro1()

    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets("Sheet1").Select
    Sheets("Sheet1").Name = "Sheet2"
    Range("A32").Select
    ActiveWorkbook.Save
    ActiveWorkbook.Close
End Sub

Özetle; Acces ortamında excel üzerinde bu kod çalışacak gibi düşünebiliriz.

İyi Yıllar dilerim.

 

[BG]

Merhabalar,

Access Form ortamında iken

MyArg = "C:\MyFolder\ab.xls"
varRet = fHandleFile(MyArg, WIN_NORMAL)

bu kodla bir excel dosyasını açabiliyoruz,

Yine Access Form ortamında iken;
Açılan bu excel dosyası üzerinde işlem yapabilirmiyiz? Kısaca bir sheet ekleyip kapatacak.

Sub Macro1()

    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets("Sheet1").Select
    Sheets("Sheet1").Name = "Sheet2"
    Range("A32").Select
    ActiveWorkbook.Save
    ActiveWorkbook.Close
End Sub

Özetle; Acces ortamında excel üzerinde bu kod çalışacak gibi düşünebiliriz.

İyi Yıllar dilerim.

eğer bu kod ile access de iken ilgili excel dosyasını açabiliyorsanız

MyArg = "C:\MyFolder\ab.xls"
varRet = fHandleFile(MyArg, WIN_NORMAL)

ve ikinci verdiğiniz kodun çalışmasını istiyorsanız ab.xls dosyasının
Auto_open() sub ının içine
Sheets.Add After:=Sheets(Sheets.Count)
Sheets("Sheet1").Select
Sheets("Sheet1").Name = "Sheet2"
Range("A32").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
yazdığınızda işleminizi gerçekleşir diye düşünüyorum!!

 

[tamer42]

eğer bu kod ile access de iken ilgili excel dosyasını açabiliyorsanız

MyArg = "C:\MyFolder\ab.xls"
varRet = fHandleFile(MyArg, WIN_NORMAL)

ve ikinci verdiğiniz kodun çalışmasını istiyorsanız ab.xls dosyasının
Auto_open() sub ının içine
Sheets.Add After:=Sheets(Sheets.Count)
Sheets("Sheet1").Select
Sheets("Sheet1").Name = "Sheet2"
Range("A32").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
yazdığınızda işleminizi gerçekleşir diye düşünüyorum!!

Sn Brain;
Excel ortamında bu işlemi yapmak istemiyorum, Bütün derdim Access ortamında yapmak.
Çünkü;
bir sonraki aşamada (geliştirdiğim zaman) bu sayfaya Access tarafından açıldığı tarihi ve saati v.b. gibi bilgileri yazdırmak düşüncesindeyim.

Mutlu Seneler.