如何將EXCEL的數據批量導入INDESIGN？

三種VBA:

方法一：在eccelVBA編輯器編寫(xiě)代碼indesign表格，使用FOR循環(huán)導入：

Sub利用Excel的VBA將數據寫(xiě)入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表格，根據自己的電腦修改這個(gè)字符串

'至于連接至的數據庫名indesign表格，根據自己的電腦修改，或用一個(gè)對話(huà)框或其他方式將此值傳遞進(jìn)程序

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

&"DataSource="&strFileName&";"

Cnn.OpenstrCon

Rs.ActiveConnection=Cnn

Rs.LockType=adLockOptimistic

Rs.Open"Employee"'假設表為Employee

'定義Excel表中的數據區域以寫(xiě)入Access

DimShtAsWorksheet

DimRnAsLong

DimCnAsLong

SetSht=ThisWorkbook.Sheets("Sheet1")

'假設將Sheet1表的2-6行的1、2、3列寫(xiě)入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