Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


31798 / 76738 ←次へ | 前へ→

【50184】Re:ファイルが開きません
質問  かずお E-MAIL  - 07/7/13(金) 16:36 -

引用なし
パスワード
   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

私の手落ちでゴチャゴチャしてお手間を取らせて申し訳ありません。

5 hits

【50168】ファイルが開きません かずお 07/7/13(金) 12:38 質問
【50169】Re:ファイルが開きません かみちゃん 07/7/13(金) 13:01 発言
【50170】Re:ファイルが開きません かずお 07/7/13(金) 13:28 質問
【50173】Re:ファイルが開きません かみちゃん 07/7/13(金) 14:26 発言
【50171】Re:ファイルが開きません Jaka 07/7/13(金) 13:39 発言
【50172】Re:ファイルが開きません かずお 07/7/13(金) 14:24 質問
【50174】Re:ファイルが開きません かみちゃん 07/7/13(金) 14:29 発言
【50175】Re:ファイルが開きません かずお 07/7/13(金) 14:40 回答
【50176】Re:ファイルが開きません かみちゃん 07/7/13(金) 14:43 発言
【50178】Re:ファイルが開きません Jaka 07/7/13(金) 14:50 発言
【50184】Re:ファイルが開きません かずお 07/7/13(金) 16:36 質問
【50185】Re:ファイルが開きません Jaka 07/7/13(金) 17:07 発言
【50186】Re:ファイルが開きません かみちゃん 07/7/13(金) 17:22 発言
【50190】Re:ファイルが開きません かずお 07/7/13(金) 19:25 発言
【50191】Re:ファイルが開きません かみちゃん 07/7/13(金) 19:41 発言
【50202】Re:ファイルが開きません わいわい 07/7/13(金) 21:55 発言
【50179】Re:ファイルが開きません かずお 07/7/13(金) 14:57 質問
【50180】Re:ファイルが開きません かみちゃん 07/7/13(金) 15:10 発言

31798 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free