Re: [VB6 ] 將結果輸出至word
※ 引述《abliou (Art of Life)》之銘言：
: ※ 引述《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有點問題...因為沒有指定到該檔....
: 應該還有修改空間...
Sub Form_Load()
Dim wdapp As Word.Application <----使用者尚未定義是指??
Dim sel As Word.Selection
Dim doc As Word.Document
Set wdapp = CreateObject("word.application")
Set doc = wdapp.Documents.Open("d:\ 功課\1.doc") <----這是我的WORD檔位置
Set sel = wdapp.Selection
sel.TypeText ("Str(finalitem(0))") <-----這是我要讀值輸出的地方
doc.Close
End Sub
不太行~~~
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.225.16.115
推
12/28 23:56, , 1F
12/28 23:56, 1F
推
12/29 17:47, , 2F
12/29 17:47, 2F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 3 之 3 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
