Comment convertir un objet entrant en binaire dans Access 2007 VBA?

Question

J'ai besoin d'importer des objets PDF et XLS et de les convertir en binaire. Le code suivant ne fonctionne pas, apparemment parce que le "fd.SelectedItems (1)" est le chemin de l'objet au lieu de l'objet lui-même.

Si je dim "fileToUpload" en tant qu'objet, j'obtiens une variable d'objet "run time '91' ou avec une variable de bloc non définie".

Si je ne précise pas Dim "fileToUpload", quand j'arrive à la dernière ligne ci-dessous, j'obtiens "run time '424' Objet requis".

Quelqu'un connaît les mots magiques?

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

Qu'est-ce que FileToUpload est censé être? Si vous le diminuez comme un objet, vous devez le définir, c'est-à-dire, SET FileToUpload = fd.SelectedItems (1), mais je ne pense pas que ce soit nécessairement la bonne chose, pour autant que je sache, fd.SelectedItems (1) va retourner une valeur de chaîne qui a le nom/chemin du fichier, pas un objet de fichier réel. On dirait que ça devrait être une ficelle.

Peut-être que ceci fonctionne:

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)