Recent content by mastro78

As far as I can see everything is as it should be. Just seems to be having a problem with that line.

Yes and yes.

Error 3251 Operation is not supported for this type of object - is the error i get now

With the four sets of quotes at the end, says unexpected end of statement and highlights those. All the code is identical to what you gave me. What is strange is something changed from unsupported object to this.

rsSheet.FindFirst "SheetPathName = """ &PathToExcelFiles + ExcelFileName """" Actually now I get a syntax error for some reason. I was just trying to mimic it.

And when should I call the Import Function? From the way the function works in your code, looks like I wouldn't need all that I have in the OnOpen event and just call this module instead? Unfortunately, no matter how I go about it I get the unsupported object error 3251.

Looking at your code, that findfirst line I'm having trouble with. The field in the table Spreadsheets that contains the filename is Spreadsheet and it only contains the filename no path with it. The path is stored in a different table. So when you say "Spreadsheet = """ &PathToExcelFiles +...

ONOPEN EVENT AND BUTTON CLICK: Private Sub Active_Click() Call ImportFromExcel DoCmd.OpenForm "frmDetails" End Sub Private Sub Form_Open(Cancel As Integer) 'Set menu title Dim dbs As Database, cnt As Container Dim doc As Document, prp As Property, CapStr As String Set...

Actually to avoid having to touch anything in the Spreadsheets table on import, I added the Spreadsheet field to my main data table plus added a function to Excel to capture the filename so when I append it stores it in the access data table. With the onopen of my main form is where I have it...

I already have the reference piece set up, did that when I started the project. And I currently am storing the path in one database initially and in the Spreadsheets table I'm storing the file name only. I may have an error in the process/order of doing this.

PERFECT!! Thanks!

What I'd like to do is have the file name of the Excel worksheet/workbook I'm using to capture the name of itself in a cell in a hidden worksheet. Please advise, thank you!

Comes back unsupported for some reason.

Actually what does this stand for:: OpenSchema(adSchemaTables)

Not exactly sure what this piece is doing: cnXcell.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "c:\PayrollRec.xls" & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";" Set rsXcell = cnXcell.OpenSchema(adSchemaTables) Do While Not rsXcell.EOF WorksheetName =...