ben Access üzerinden excele satır ekiyorum şu kod ile
Private Sub writeExcel_hasan()
Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Dim xlWS As Excel.Worksheet
Dim acRng As Variant
Dim xlRow As Integer
Dim xlRowNew As Integer
Dim xlColumn As Integer
Set xlApp = New Excel.Application
Set xlWB = xlApp.Workbooks.Open("C:\Users\doktor2\Desktop\pmf\pmf_hasan.xlsx")
Set xlWS = xlWB.Worksheets("Sayfa1")
xlRow = xlWS.Cells(xlWS.Rows.Count, 1).End(xlUp).Row
xlRowNew = xlRow + 1
xlWS.Cells(xlRowNew, 1).Formula = kimlik_Arraylistlist(1) 'ad
xlWS.Cells(xlRowNew, 2).Formula = isozluk_Arraylistlist(0) 'sicil
xlWS.Cells(xlRowNew, 3).Formula = isozluk_Arraylistlist(2) 'işe giriş tarihi
xlWS.Cells(xlRowNew, 4).Formula = Me.dateToday 'tarih
xlWS.Cells(xlRowNew, 5).Formula = turBul 'muayene nedeni
rq_Exit:
Set xlWS = Nothing
xlWB.Close acSaveYes
Set xlWB = Nothing
xlApp.Quit
Set xlApp = Nothing
End Sub
sorum şu
ana bilgisayardaki Excel dosyasının kısayolu client pc de olacak bende Access ile satır ekleyeceğim
burada kısayol üzerinden ağdaki diğer bilgisayardaki excele bu kod ile satır ekleyebilir miyim
veya bu koddaki dosya adresini "\\192.168. ....... " şeklinde yazarak ana pc deki excele yazabilir miyim