[求助]读取excel资料sheet的2个问题

lanchong

1用转换方式导入excel资料，可怎么指定导入某个sheet呢？

   DoCmd.TransferSpreadsheet acImport, 8, "TmpSheet", StrFileName, False

该在哪里写入sheet的名称？

2 我参考以下方法得到得到Excel文件的每个sheet的名称和sheet数，但是每用一次就在内存中开启了一个excel.exe,无法释放，致使所用的excel文件被锁定。请问如何解除

Dim ex As Excel.Application

　　 Dim exwbook As Excel.Workbook

　　 Dim exsheet As Excel.Worksheet

　　 Dim x As String

　　 Dim shetcounts As Integer

　　 shetcounts = 0

　　 Set ex = CreateObject("Excel.Application")

　　 Set exwbook = ex.Workbooks.Open(ThisWorkbook.Path & "\Book1.xls")

For Each sheet In exwbook.Worksheets

         x = x + sheet.Name

         shetcounts = shetcounts + 1

Next

msgbox ”名称:“ & left(x,len(x)-1)  & chr(13) & "共有" & shetcounts  & "个工作簿。"

sgrshh29

1.DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "TableName", Path & "filename.xls", False, "Range"

2.从您的代码来看，您在引用以后没有卸载。所以被锁定了。试一试用下面的代码卸载。   

          ex.Quit

          Set ex = Nothing

          Set exwbook = Nothing

          Set exsheet = Nothing

加在msgbox的下面。

对不起，上次没有仔细检查。

[此贴子已经被作者于2005-3-19 7:51:06编辑过]