在BtnOpenFile_Click中的yue.OpenWord(myfilename)提示運算式不產生值
但是在Button1_Click中yue.OpenWord("C:\Users\xhkj\Documents\a.docx")就沒有錯
Public Class Form1
Public Shared yue As YueWord = New YueWord
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
yue.OpenWord("C:\Users\xhkj\Documents\a.docx")
End Sub
Private Sub BtnOpenFile_Click(sender As Object, e As EventArgs) Handles BtnOpenFile.Click
Dim Themno As String
Dim myfilename As String
Themno = CMBThemID.Text
myfilename = Application.StartupPath + Themno +'.docx'
yue.OpenWord(myfilename)
End Sub
Public Class YueWord
Public Shared app As Word.Application = New Word.Application
Public Shared myWordDocument As Word.Document
Public Shared myWordFont As Word.Font
Public Shared myDocPro As DocPro
Public Sub OpenWord(filename As String) '打開一個檔案
app.Visible = False
myWordDocument = app.Documents.Open(filename, Nothing, [ReadOnly]:=True)
End Sub
uj5u.com熱心網友回復：
代碼寫錯了myfilename = Application.StartupPath & Themno &'.docx'
uj5u.com熱心網友回復：
是不是myfilename 前邊要加個Set?很久沒玩VB了
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/163819.html
標籤：VB.NET
下一篇：如何只出現一次 列印預覽