原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
在下面的示例中，我们添加了“写入”和“”外部文本文件的功能。这些文件是“逗号分隔的文本文件”。这些
类型文件中的任何数据都可以导入到许多不同的电子表格和数据库程序中。‘student.dat’中的数据看起来像这样
“学生ID”、“名字”、“姓氏”“And01”、
“Joh”、“Anderson”“Bed01”、
“David”、“Bedlam”“Joh01”、
“Peter”、“John”“rad01”、
“Gary”、“Radley”“smi01”、
“John”、“Smith”“Zoo02”、
“Little”、“Zoot”
尝试一下表格，他们看看代码。
写入数据文件从数据文件写入学生数据输入学生资料查询
学生证名姓
和01Joh安德森
床01大卫疯人院
约翰01彼得
smi01John
动物园BenZoot
02
将数据写入文本文件：
首先检查是否有数据要写入，然后询问用户是否要更新外部数据文件。
If(ActiveDocument.Tab(1).Rows.Count3)thenMsgBox(没有数据可写！)ExitSubEnd
IfIsOk=MsgBox(这将用此表中的数据覆盖现有数据。您想继续吗？,vbOKCancel)IfIsOk=1
ThenSetMyTable=ActiveDocument.Tab(1)looking=1Formlength
MyTable.Rows.Count
设置要计数的行数
接下来，打开数据文件进行输出。
OpenActiveDocument.Path+\students.datForOutputAs#1打开文件进行输出
然后将“Looking”的一行中的每个单元格设置为字符串变量“S1”、“S2”或“S3”，清理字符串，然后将字符
串逐行写入文本文件。
一边看（形式长度+1）开始循环
S1=stripit(MyTable.Cell(looking,1),2)获取数据然后去掉最后2个字符
S2=stripit(MyTable.Cell(looking,2),2)S3
stripit(MyTable.Cell(looking,3),2)写入#1，
S1；S2；S3将数据写入文本文件
如果看=1那么就看
=2‘跳过第二行
结束如果看=看+1
Inthisexamplebelow,wehaveaddedtheabilityto‘writeto’and‘readfrom’anexternaltextfile.These
fiare‘commadelimitedtextfi’.Anydatainthesetypeofficanbeimportedintomanydifferent
spreadsheetanddatabaseprograms.Thedatain‘st
文档评论（0）