Pessoal Boa Tarde,
O código abaixo permite escolher o arquivo excel e importar para o banco de dados atual. Existe alguma forma de escolher o banco que irá receber essa importação ?
O código abaixo permite escolher o arquivo excel e importar para o banco de dados atual. Existe alguma forma de escolher o banco que irá receber essa importação ?
- Código:
Sub BrowsingWindow()
Dim Dlg As FileDialog
Dim txtFilePath As String
Dim varFile As Variant
Set Dlg = Application.FileDialog(msoFileDialogFilePicker)
With Dlg
.Title = "Selecione o arquivo para importação"
.AllowMultiSelect = False
If .Show = True Then
For Each varFile In .SelectedItems
txtFilePath = varFile
Debug.Print txtFilePath
Next
Debug.Print txtFilePath
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "NovaTabela", txtFilePath, True
Else
Exit Sub
End If
End With
End Sub
Última edição por CRIS_FUNCIONAL em 12/5/2016, 22:57, editado 1 vez(es)