tag:blogger.com,1999:blog-7176045.post-1113303394888508612005-04-12T14:50:00.000+04:002005-04-12T22:25:35.306+04:002005-04-12T22:25:35.306+04:00If you would try to import password-protected Excel file into Access, using DoCmd.TransferSpreadsheet - method will fail. You can use following workaround - open protected excel file in Excel using automation, then run DoCmd.TransferSpreadsheet and then close file. Here a sample procedure to perform such task:<br /><br /><span style="font-family:courier new;font-size:85%;">Public Sub ImportProtected(strFile As String, _</span><br /><span style="font-family:courier new;font-size:85%;">strPassword As String)</span><br /><span style="font-family:courier new;font-size:85%;">Dim oExcel As Object, oWb As Object</span><br /><span style="font-family:courier new;font-size:85%;">Set oExcel = CreateObject("Excel.Application")</span><br /><span style="font-family:courier new;font-size:85%;">Set oWb = oExcel.Workbooks.Open(FileName:=strFile, _</span><br /><span style="font-family:courier new;font-size:85%;">Password:=strPassword)</span><br /><span style="font-family:courier new;font-size:85%;">DoCmd.TransferSpreadsheet acImport, _</span><br /><span style="font-family:courier new;font-size:85%;">acSpreadsheetTypeExcel9, </span><span style="font-family:courier new;font-size:85%;">"Import", strFile, -1</span><br /><span style="font-family:courier new;font-size:85%;">oWb.Close SaveChanges:=False</span><br /><span style="font-family:courier new;font-size:85%;">oExcel.Quit</span><br /><span style="font-family:courier new;font-size:85%;">Set oExcel = Nothing</span><br /><span style="font-family:courier new;font-size:85%;">End Sub</span><br /><br />To run this procudere:<br /><br /><span style="font-family:courier new;font-size:85%;">ImportProtected "C:\MyFile.xls", "123"</span>Alex Dybenkohttp://www.blogger.com/profile/16954512620659022712noreply@blogger.com5