Office中国论坛/Access中国论坛

标题: 合并excel中有规律的sheet名表 [打印本页]

作者: canghua 时间: 2007-7-10 22:23
标题: 合并excel中有规律的sheet名表
<

>有什么办法可以把 sheet名字有规律的工作表导入到一张表里面？
<

>就如例子中的LYBSC9这个Sheet以及LYBSC10这个Sheet。另外可能还会有LYBSC1/LYBSC2/LYBSC3...这些sheet。
<

>请问该如何合并？
[attach]25297[/attach] 

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "BSC_Table", FileName, True, "导入的sheet表名该如何写?"

[此贴子已经被作者于2007-7-10 14:24:57编辑过]

作者: canghua 时间: 2007-7-10 23:50
<

>高手帮忙回答哦：）
<

>谢谢啦。

作者: canghua 时间: 2007-7-11 00:11
<

>DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "BSC_Table", FileName, True, "导入的sheet表名该如何写?"
"导入的sheet表名该如何写?"
<

>一般导入的都是固定的sheet名称，但是现在是变化的，该如何定义？???

作者: andymark 时间: 2007-7-11 00:48
<DIV class=quote>以下是引用canghua在2007-7-10 14:23:00的发言： 
<

>有什么办法可以把 sheet名字有规律的工作表导入到一张表里面？
<

>就如例子中的LYBSC9这个Sheet以及LYBSC10这个Sheet。另外可能还会有LYBSC1/LYBSC2/LYBSC3...这些sheet。
<

>请问该如何合并？</DIV>
 合并到access,还是excel

作者: canghua 时间: 2007-7-11 00:51
合并到access...

作者: andymark 时间: 2007-7-11 01:24
<

>DoCmd.RunCommand acCmdImport
<

>通过向导选择SHEET表导入

作者: canghua 时间: 2007-7-11 01:29
<

>总算等到斑竹了，有办法写程序吗？
<

>而不用向导。

作者: sgrshh29 时间: 2007-7-12 05:11
<DIV class=quote>以下是引用canghua在2007-7-10 16:11:00的发言： 
<

>DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "BSC_Table", FileName, True, "导入的sheet表名该如何写?" "导入的sheet表名该如何写?" 
<

>一般导入的都是固定的sheet名称，但是现在是变化的，该如何定义？??? </DIV>
<

>1、不知你的book的名称与sheet的名称是否都是你上传的文件中的规律?
2、每个book中是否只有一个有数据的sheet？
3、不知你是要sheet的名称放到access表中，还是要把sheet中的数据导入到access表中？

作者: canghua 时间: 2007-7-13 08:53
<

>LS的朋友，回复你的疑问：
<

>1、不知你的book的名称与sheet的名称是否都是你上传的文件中的规律? 是的，都是。
<

>2、每个book中是否只有一个有数据的sheet？
不止，还有其它的sheet，但没有规律可循。 
3、不知你是要sheet的名称放到access表中，还是要把sheet中的数据导入到access表中？
把sheet中的数据导入到access中。。

汗阿，一个简单问题我说了半天都没清楚，可怜。

作者: sgrshh29 时间: 2007-7-13 19:14
<DIV class=quote>以下是引用canghua在2007-7-13 0:53:00的发言： 
<

>LS的朋友，回复你的疑问： 
<

>1、是的，都是。 
<

>2、不止，还有其它的sheet，但没有规律可循。 
3、把sheet中的数据导入到access中。。
汗阿，一个简单问题我说了半天都没清楚，可怜。</DIV>
将同一个文件夹中的多个excel（每个excel中可以有数量不等的若干个sheet，所有book中的所有的sheet的第一行（也就是列名）必须全部相同（如果没有数据的就为空）。）中的所有sheet中的数据导入到access的"tbl"表中。
Public Sub drxl() Dim I As Integer Dim strDir As String Dim xlFileName As String Dim xlSheetName As String Dim xlApp As Object Dim xlBook As Object Dim xlSheet As Object strDir = Dir(CurrentProject.Path & "\*.xls") Set xlApp = CreateObject("Excel.Application") Do While Len(strDir) xlFileName = CurrentProject.Path & "\" & strDir Set xlBook = xlApp.Workbooks.Open(xlFileName) Set xlSheet = xlBook.sheets() For Each xlSheet In xlBook.Worksheets If xlSheet.range("a1") <> "" Then Call IntoTable(xlFileName, xlSheet.Name) End If Next xlBook.Close strDir = Dir Loop xlApp.Quit Set xlApp = Nothing Set xlBook = Nothing Set xlSheet = Nothing End Sub 
Public Sub IntoTable(FullFileName As String, SheetName As String) DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "tbl", FullFileName, True, SheetName & "$" End Sub

[此贴子已经被作者于2007-7-13 11:15:07编辑过]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)