如何将EXCEL的数据批量导入INDESIGN？

三种VBA:

方法一：在eccelVBA编辑器编写代码indesign表格，使用FOR循环导入：

Sub利用Excel的VBA将数据写入Access()

'定义ADODB连接Access数据库

DimCnnAsNewADODB.Connection

DimRsAsNewADODB.Recordset

DimstrConAsString

DimstrFileNameAsString'数据库文件名

strFileName=InputBox("请输入文件路径及文件名：","Excel传递数据至Access","E:\ExcelTest\Staff.mdb")

'连接字符串indesign表格，我这里是Access2010,所提供者参数为：Provider=Microsoft.ACE.OLEDB.12.0;

'如果此参数不能使用indesign表格，根据自己的电脑修改这个字符串

'至于连接至的数据库名indesign表格，根据自己的电脑修改，或用一个对话框或其他方式将此值传递进程序

strCon="provider=Microsoft.jet.OLEDB.4.0;"_

&"DataSource="&strFileName&";"

Cnn.OpenstrCon

Rs.ActiveConnection=Cnn

Rs.LockType=adLockOptimistic

Rs.Open"Employee"'假设表为Employee

'定义Excel表中的数据区域以写入Access

DimShtAsWorksheet

DimRnAsLong

DimCnAsLong

SetSht=ThisWorkbook.Sheets("Sheet1")

'假设将Sheet1表的2-6行的1、2、3列写入Access表

ForRn=2To6

Rs.AddNew

Rs!num=Sht.Cells(Rn,1)’num,name,department是数据库中指定表的字段

Rs!Name=Sht.Cells(Rn,2)

Rs!department=Sht.Cells(Rn,3)

Rs.Update

NextRn

MsgBox"完成!"

Rs.Close

Cnn.Close

SetRs=Nothing

SetCnn=Nothing

SetSht=Nothing

Endsub