Excel VBA質問箱 IV

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

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


31797 / 76738 ←次へ | 前へ→

【50185】Re:ファイルが開きません
発言  Jaka  - 07/7/13(金) 17:07 -

引用なし
パスワード
   ▼かずお さん:
>>msgbox CreateObject("WScript.Shell").SpecialFolders("Desktop")
>で、デスクトップのパスは C:\WINDOWS\デスクトップ でしたのでその両方でと
OSは、なんですか?
上記は、95系のデスクトップのパスです。

NT系(Win2000、XP)
95系(Win95、98、Me)
では、デスクトップのパスが違います。
ちょくちょくOSの違うPCで試して「動きません。」では、話が全く違うものになります。

どのOSでも使えるようにしたいのなら、
かみちゃんさんがかかれたように直してください。


>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
え〜と、はっきり言います。
上記コードで動くと思えません。
変なところで改行してあるし、コンパイルすら通ると思えません。
「>」は、要らないから(引用印)実際のコードを載せてください。

>Dドライブに移し D:\新しいフォルダ で試してみましたが何れも出来ませんでした
それは、コードを見てないけれど、「書き方が間違っているから」としか言えません。
4 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 発言

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