blingbling4r
New member
- Local time
- Today, 02:15
- Joined
- Dec 31, 2010
- Messages
- 2
I have numerous Excel files that have multiple sheets (all files have the same sheet names). The sheets contain data in specific cells that are all the same however the rows change depending on the Excel file.
In the Excel file I can manually use VLOOKUP to see the required cells from the various sheets like so:
=VLOOKUP("Totals",Ext!1:1048576,12)
=VLOOKUP("Totals",DirLb!1:1048576,3)
=VLOOKUP("Totals",DirLb!1:1048576,3)
=VLOOKUP("Prime Cost",Price Summary!1:1048576,2)
Anyway I can import these values directly to append records in a database?
I want the user to find/open a record in a table. Select the Excel file. Prepopulate the table with the values from Excel.
I'm using the following code on a form (QuickImport) so the user can find the Excel file:
Dim fdlg As FileDialog
Dim sFile As String
Set fdlg = Application.FileDialog(msoFileDialogFilePicker)
With fdlg
.Title = "Select the Excel file to import"
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "Excel", "*.xls; *.xlsx", 1
If .Show Then
sFile = fdlg.SelectedItems(1)
txtFilename.value = sFile
End If
End With
How would I import the information to a select record on a table (Job.Database)??
In the Excel file I can manually use VLOOKUP to see the required cells from the various sheets like so:
=VLOOKUP("Totals",Ext!1:1048576,12)
=VLOOKUP("Totals",DirLb!1:1048576,3)
=VLOOKUP("Totals",DirLb!1:1048576,3)
=VLOOKUP("Prime Cost",Price Summary!1:1048576,2)
Anyway I can import these values directly to append records in a database?
I want the user to find/open a record in a table. Select the Excel file. Prepopulate the table with the values from Excel.
I'm using the following code on a form (QuickImport) so the user can find the Excel file:
Dim fdlg As FileDialog
Dim sFile As String
Set fdlg = Application.FileDialog(msoFileDialogFilePicker)
With fdlg
.Title = "Select the Excel file to import"
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "Excel", "*.xls; *.xlsx", 1
If .Show Then
sFile = fdlg.SelectedItems(1)
txtFilename.value = sFile
End If
End With
How would I import the information to a select record on a table (Job.Database)??