Έχω το εξής πρόβλημα στο
VBA.
Μου βγάζει πρόβλημα ότι δεν υπάρχει η MS OFFECE 11.0 OBJECT LIBRARY
Έχω τον παρακάτω κώδικα:
Private Sub AddFile_Click()
' Requires reference to Microsoft Office 12.0 Object Library. '
Dim fDialog As Office.FileDialog
Dim varFile As Variant
' Clear listbox contents. '
Me.FileList.RowSource = ""
//χτυπάει εδώ
' Set up the File Dialog. '
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
' Allow user to make multiple selections in dialog box '
.AllowMultiSelect = True
' Set the title of the dialog box. '
.Title = "Please select one or more files"
' Clear out the current filters, and add our own.'
.Filters.Clear
.Filters.Add "Access Databases", "*.MDB"
.Filters.Add "Access Projects", "*.ADP"
.Filters.Add "All Files", "*.*"
' Show the dialog box. If the .Show method returns True, the '
' user picked at least one file. If the .Show method returns '
' False, the user clicked Cancel. '
If .Show = True Then
'Loop through each file selected and add it to our list box. '
For Each varFile In .SelectedItems
Me.FileList.AddItem varFile
// χτυπάει εδώ
Next
End Sub