如何在Access 2007 VBA中將傳入對象轉換爲二進制文件？

Question

我需要導入PDF和​​XLS對象並將它們轉換爲二進制。下面的代碼不起作用，顯然是因爲「fd.SelectedItems（1）」是對象的路徑而不是對象本身。

如果我把「fileToUpload」作爲一個對象調暗，我會得到一個「運行時間」91'對象變量或者塊變量未設置「。

如果我沒有特別昏暗「fileToUpload」，當我到達最後一行時，我得到「運行時間」424'所需的對象「。

任何人都知道魔法字嗎？

Dim fd As FileDialog 
    Dim ImageToBytes() As Byte 
    Dim ImageCode As String 

    FilePickerControl = False 
    Set fd = Application.FileDialog(msoFileDialogFilePicker) 
    fd.AllowMultiSelect = False 
    If fd.Show = -1 Then 
    FileToUpload = fd.SelectedItems(1) 
    End If 

    ImageToBytes = System.IO.File.ReadAllBytes(FileToUpload) 

Answer 1

FileToUpload應該是什麼？如果你把它作爲一個對象變暗，你需要設置它，即SET FileToUpload = fd.SelectedItems（1），但我不認爲這必然是正確的事情，就我所知，fd.SelectedItems（1 ）將返回一個具有文件名/路徑的字符串值，而不是實際的文件對象。在我看來，它應該是一個字符串。

也許這將工作：

Dim fd As FileDialog 
    Dim strFileToUpload As String 
    Dim ImageToBytes() As Byte 
    Dim ImageCode As String 

    FilePickerControl = False 
    Set fd = Application.FileDialog(msoFileDialogFilePicker) 
    fd.AllowMultiSelect = False 
    If fd.Show = -1 Then 
    strFileToUpload = fd.SelectedItems(1) 
    End If 

    ImageToBytes = System.IO.File.ReadAllBytes(strFileToUpload)