Excel VBA通过DDE实现数据读写操作示例.pdfVIP

Inthisexamplebelow,wehaveaddedtheabilityto‘writeto’and‘readfrom’anEXCELfilecalled

‘students.xls’.ThisisachievedbyusingtheDDEfunctionsthatallowyoutoinitializecommunication

weentwoOFFICEprogramsusing‘DDEInitiate’,communicateusing‘DDEPoke’,‘DDEExecute,and

‘DDERequest’,thenclosethecommunicationusing‘DDETerminate’.

WritetoExcelFileWritefromExcelFileStudentDataInputStudentDataQuery

StudentIdFirstNameLastName

and01JohnAnderson

bed01DavidBedlam

joh01PeterJohnson

smi01JohnSmith

zoo02BenZoot

WRITINGDATATOEXCEL:

Firstcheckthatthereisdatatowrite,thenaskiftheuserwantstoupdatetheEXCELdatafile.

If(ActiveDocument.Tab(1).Rows.Count3)Then

MsgBox(Thereisnodatatowrite!)

ExitSub

EndIf

IsOk=MsgBox(ThiswilloverwritetheexistingdatawiththedatainthisTable.Doyouwishtocontinue?,

vbOKCancel)

IfIsOk=1Then

CallwritetoExcel

EndIf

Inthe‘writetoExcel’procedure,theEXCELfileisfirstopened.

chan=DDEInitiate(App:=Excel,Topic:=System)

DDEExecuteChannel:=chan,Command:=[OPEN(Chr(34)ActiveDocument.Path+\students.xls

Chr(34))]

DDETerminateChannel:=chan

chan=DDEInitiate(App:=Excel,Topic:=ActiveDocument.Path+\students.xls)

Then,