|
Windows XP, Excel 2007で開けませんでしたのでWindows Me, Excel 2000で作り直して試してみたのですが"ありません"で、開くことが出来ませんでした。何がいけないのか、どのようにしたら良いのかご教授をお願い致します。
Private Sub CommandButton1_Click()
Dim FLNm As String
If ComboBox1.ListIndex >= 0 Then
FLNm = "C:Document and settings\owner\デスクトップ\新しいホルダ\" & _
ComboBox1.List(Me.ComboBox1.ListIndex) & ".xls"
If Dir(FLNm) <> "" Then
Workbooks.Open (FLNm)
Else
MsgBox "ありません"
End If
End If
End Sub
Private Sub UserForm_Initialize()
Me.ComboBox1.List = ActiveSheet.Range("K2:K11").Value
End Sub
|
|