|
Jakaさん ログイン名(Owner)が抜け落ちていました済みません。それから
>msgbox CreateObject("WScript.Shell").SpecialFolders("Desktop")
で、デスクトップのパスは C:\WINDOWS\デスクトップ でしたのでその両方でと
Dドライブに移し D:\新しいフォルダ で試してみましたが何れも出来ませんでした
整理をしますと
>Private Sub CommandButton3_Click()
>Dim FLNm As String
>If ComboBox1.ListIndex >= 0 Then
>FLNm = "C:\Documents and Settings\Owner\デスクトップ\新しいフォルダ
>\"& ComboBox1.List(ComboBox1.ListIndex) & ".xls"
>If Dir(FLNm) <> "" Then
>Workbooks.Open (FLNm)
>Else
>MsgBox "ありません。"
>End If
>End If
>End Sub
>Private Sub UserForm_Initialize()
>ComboBox1.List = ActiveSheet.Range("K2:K11").Value
>End Sub
私の手落ちでゴチャゴチャしてお手間を取らせて申し訳ありません。
|
|