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