| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1447 人关注过本帖
标题:用VB把mdb数据保存为doc
只看楼主 加入收藏
sncelpl
Rank: 1
等 级:新手上路
帖 子:87
专家分:0
注 册:2006-6-28
结帖率:86.67%
收藏
已结贴  问题点数:20 回复次数:7 
用VB把mdb数据保存为doc
那位大老有mdb数据保存为doc代码
doc是一个表格模板把mdb数据保存到相应的表格中
搜索更多相关主题的帖子: 保存为 mdb 数据 VB doc 
2022-06-28 08:34
约定的童话
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:56
帖 子:246
专家分:1442
注 册:2021-8-1
收藏
得分:10 
读取mdb+创建word进程+新建word模板+数据输出保存
2022-06-28 16:04
sncelpl
Rank: 1
等 级:新手上路
帖 子:87
专家分:0
注 册:2006-6-28
收藏
得分:0 
回复 2楼 约定的童话
能给个源码吗?
2022-06-29 16:22
约定的童话
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:56
帖 子:246
专家分:1442
注 册:2021-8-1
收藏
得分:0 
回复 3楼 sncelpl
现成的没有,自己可以按照上面思路试一下...
2022-06-30 07:31
sncelpl
Rank: 1
等 级:新手上路
帖 子:87
专家分:0
注 册:2006-6-28
收藏
得分:0 
回复 4楼 约定的童话
Dim WordApp
Dim Word
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set Word = WordApp.Documents.Add(App.Path & "\电力设备试验单\dl.docx")
Word.Bookmarks("项目名称").Range.Text = "123"
Word.SaveAs "项目名称"
Word.Close
WordApp.Quit
我要数据传到dl.docx并以“项目名称”这个标签在同一文件夹内另存为一个新文件我这样写有问题请帮我改下谢谢。

[此贴子已经被作者于2022-6-30 09:27编辑过]

2022-06-30 08:24
chen3523
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:33
帖 子:223
专家分:1165
注 册:2013-2-12
收藏
得分:10 
Print打印夹 = "D:\整治打印_" & Str简
  Dim Fso As New FileSystemObject     '工程_引用_microsoft scripting Runtime  如果【引用】中也没有,就点击“浏览”按钮,添加c:\windows\system32\srrun.dll
  
  If Not Fso.FolderExists(Print打印夹) Then    '创建文件夹
    MkDir Print打印夹
  End If

  Set Word = WordApp.Documents.Open(App.Path & "\存放夹\施工月报.docx")

Word.SaveAs (Print打印夹 & "\施工月报_" & Str简 & Number月报数 & ".docx")   '另存为 终于成功了!!!

[此贴子已经被作者于2022-6-30 16:29编辑过]


调试失败3次后,关机睡觉,当醒来时多有收获。
2022-06-30 16:15
sncelpl
Rank: 1
等 级:新手上路
帖 子:87
专家分:0
注 册:2006-6-28
收藏
得分:0 
回复 6楼 chen3523
不行哦
Private Sub Command1_Click()
Dim WordApp
Dim Word
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set Word = WordApp.Documents.Add(App.Path & "\电力设备试验单\dl.docx")
Word.Bookmarks("项目名称").Range.Text = Text1.Text
Word.SaveAs ("")
Word.Close
WordApp.Quit
End Sub
dl.docx是一个模板文件,我把模板文件里定义了多个标签,我把Text1,Text2.....写入相应的标签中Command1执行后dl.docx另存为以Text1为文件名,位置也和模板文件一个文件夹里。Word.SaveAs ("这里怎么写")

[此贴子已经被作者于2022-7-1 09:03编辑过]

2022-07-01 08:18
sncelpl
Rank: 1
等 级:新手上路
帖 子:87
专家分:0
注 册:2006-6-28
收藏
得分:0 
终于搞定了。
Word.SaveAs (App.Path & "\电力设备试验单\" & Text1.Text & ".docx")
2022-07-01 09:45
快速回复:用VB把mdb数据保存为doc
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.014451 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved