UC知道关于vb的一个变量命名问题...
来源：百度知道 编辑：UC知道 时间：2024/09/20 13:38:48
有这样几句代码：
Private Sub Command1_Click()
Dim wordApp As Object
Dim wordDocument As Object
Set wordApp = CreateObject("word.application")
Set wordDocument = wordApp.Documents.open(App.Path & "\这里这里.doc")
End Sub
同一个窗体上还有一个Combo1控件，它的list里有：篮球、足球、排球。三个选项。我想点击Command1时，出现一个与combo1的list中的内容保持一致的文档。（文档是我事先准备好的：篮球.doc，足球.doc,排球.doc）
请问：
代码里的“这里这里”应该改成什么呀！把格式写清楚。
急着用，明天就晚了。在线等哦...
Private Sub Command1_Click()
Dim wordApp As Object
Dim wordDocument As Object
Set wordApp = CreateObject("word.application")
Set wordDocument = wordApp.Documents.open(App.Path & "\这里这里.doc")
End Sub
同一个窗体上还有一个Combo1控件，它的list里有：篮球、足球、排球。三个选项。我想点击Command1时，出现一个与combo1的list中的内容保持一致的文档。（文档是我事先准备好的：篮球.doc，足球.doc,排球.doc）
请问：
代码里的“这里这里”应该改成什么呀！把格式写清楚。
急着用，明天就晚了。在线等哦...
把Set wordDocument = wordApp.Documents.open(App.Path & "\这里这里.doc")
这句去掉，然后在那里加上
select case combo1.listindex
case 0
Set wordDocument = wordApp.Documents.open(App.Path & "\篮球.doc")
case 1
Set wordDocument = wordApp.Documents.open(App.Path & "\足球.doc")
case 2
Set wordDocument = wordApp.Documents.open(App.Path & "\排球.doc")
end select
“Set wordDocument = wordApp.Documents.open(App.Path & "\这里这里.doc")
应该改成
“Set wordDocument = wordApp.Documents.open(App.Path & combo1.text &".doc")
Set wordDocument = wordApp.Documents.open(App.Path & "\" & Combo1.Text & ".doc")