Dosya Konumu, Dizin Adresi PDA

[selimcengizince]

Merhaba,

Sub GetDataFromClosedWorkbook(SourceFile As String, SourceRange As String, _
    TargetRange As Range, IncludeFieldNames As Boolean)
' requires a reference to the Microsoft ActiveX Data Objects library
' if SourceRange is a range reference:
'   this will return data from the first worksheet in SourceFile
' if SourceRange is a defined name reference:
'   this will return data from any worksheet in SourceFile
' SourceRange must include the range headers
'
Dim dbConnection As ADODB.Connection, rs As ADODB.Recordset
Dim dbConnectionString As String
Dim TargetCell As Range, i As Integer
    dbConnectionString = "DRIVER={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" & "ReadOnly=1;DBQ=" & SourceFile
    'Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=C:\MyExcel.xls;
    
    Set dbConnection = New ADODB.Connection
    On Error GoTo InvalidInput
    dbConnection.Open dbConnectionString ' open the database connection
    Set rs = dbConnection.Execute("[" & SourceRange & "]")
    Set TargetCell = TargetRange.Cells(1, 1)
    If IncludeFieldNames Then
        For i = 0 To rs.Fields.Count - 1
            TargetCell.Offset(0, i).Formula = rs.Fields(i).Name
        Next i
        Set TargetCell = TargetCell.Offset(1, 0)
    End If
    TargetCell.CopyFromRecordset rs
    rs.Close
    dbConnection.Close ' close the database connection
    Set TargetCell = Nothing
    Set rs = Nothing
    Set dbConnection = Nothing
    On Error GoTo 0
    Exit Sub
InvalidInput:
    'MsgBox "The source file or source range is invalid!", _
        vbExclamation, "Get data from closed workbook"
End Sub

Sub diğersayfadanverial()
Range("A1").Select
Debug.Print ActiveWorkbook.FullName
GetDataFromClosedWorkbook "[COLOR="Red"]C:\Users\ince\Desktop\kapalı.xls[/COLOR]", "A1:D65536", ActiveCell, True
GetDataFromClosedWorkbook "[COLOR="red"]C:\Users\ince\Desktop\kapalı.xls[/COLOR]", "liste", Worksheets("Rapor").Range("A1"), True
End Sub

Forumdan ulaştığım bu kodlarla, kapalı bir sayfadan veri alabiliyorum. Bilgisayara takılan taşınabilir aygıt (PDA)'daki bir Excel dosyasından veri almak için, nasıl bir düzenleme yapılmalıdır?

Çok uğraştım ama bir türlü dosya yolunu belirtemedim. Cihaz takılıyken, Aygıt yöneticisinde "Taşınabilir aygıtlar" altında görünüyor. Yardımlarınız için şimdiden teşekkürler.