用VB把mdb数据保存为doc - 编程论坛

#2

约定的童话2022-06-28 16:04

读取mdb+创建word进程+新建word模板+数据输出保存

#3

sncelpl2022-06-29 16:22

回复 2楼约定的童话

能给个源码吗？

#4

约定的童话2022-06-30 07:31

回复 3楼 sncelpl

现成的没有，自己可以按照上面思路试一下...

#5

sncelpl2022-06-30 08:24

回复 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编辑过]

#6

chen35232022-06-30 16:15

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编辑过]

#7

sncelpl2022-07-01 08:18

回复 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编辑过]

#8

sncelpl2022-07-01 09:45

终于搞定了。
Word.SaveAs (App.Path & "\电力设备试验单\" & Text1.Text & ".docx")