들어오는 개체를 Access 2007 VBA에서 이진으로 변환하려면 어떻게합니까?

Question

PDF 및 XLS 개체를 가져 와서 이진 파일로 변환해야합니다. 다음 코드는 "fd.SelectedItems (1)"이 개체 자체가 아닌 개체의 경로이기 때문에 분명히 작동하지 않습니다.

개체로 "fileToUpload"가 희미 해지면 "런타임 '91'Object variable 또는 With 블록 변수가 설정되지 않았습니다."라는 메시지가 나타납니다.

특히 "fileToUpload"가 희미하지 않으면 아래 마지막 줄에 "424 'Object Required"런타임이 표시됩니다.

누구나 마법의 단어를 아나요?

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)