Skip to main content

AccessTr.neT


Client Excel Sorunu

Client Excel Sorunu

#3
teşekkürler
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
@benbendedeilem
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Client Excel Sorunu - Yazar: accessman - 06/01/2020, 14:15
Cvp: Client Excel Sorunu - Yazar: userx - 06/01/2020, 15:12
Cvp: Client Excel Sorunu - Yazar: accessman - 06/01/2020, 15:34
Cvp: Client Excel Sorunu - Yazar: userx - 06/01/2020, 16:00
Cvp: Client Excel Sorunu - Yazar: accessman - 06/01/2020, 16:10
Cvp: Client Excel Sorunu - Yazar: accessman - 06/01/2020, 16:14
Cvp: Client Excel Sorunu - Yazar: userx - 06/01/2020, 16:33
Task