Re: [VB6 ] 將結果輸出至word
※ 引述《jackg (滾~~西~~)》之銘言：
: 請問各位大大
: 如果我用vb做運算,算出0~9等數字
: 要如何讓結果輸出至word檔呢
請引用word涵式庫..
寫入方法大如下....
========================================================================
Dim wdapp As Word.Application
Dim sel As Word.Selection
Dim doc As Word.Document
Private Sub Form_Load()
Set wdapp = CreateObject("word.application")
Set doc = wdapp.Documents.Open(App.Path & "\test.doc")
Set sel = wdapp.Selection
sel.TypeText ("ERWERWERWRE")
sel.TypeText ("sdfhjsdgfhsdgkjfagsdhjfakdsfa")
doc.Close
End Sub
=============================================================================
這段程式碼會在你存放這段script檔案的路徑下的test.doc檔中寫入
"ERWERWERWRE"和"sdfhjsdgfhsdgkjfagsdhjfakdsfa"
我是覺得這段script有點問題...因為沒有指定到該檔....
應該還有修改空間...
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.124.50.42
推
12/28 20:36, , 1F
12/28 20:36, 1F
討論串 (同標題文章)
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
