| 投稿日 | ： 2003/11/03(Mon) 04:25 |
| 投稿者 | ： 館山照夫 |
| ＵＲＬ | ： |
| タイトル | ： Re^3: 既存のExcelファイルにアクセスするには |
> > > Image1.Picture = LoadPicture(File1.Path & File1.FileName)
> >
> > この部分は省略されているのなら問題ないのですが
> > でなければ、ここのExcel＆Word関係をよく読んで下さい。
> >
> > > Private Sub Command2_Click()
> > > End ’プログラムを終了
> > > End Sub
> > 上記のようなEndを使った終了はしない方がいいですよ
> >
> > > 6.問題点 これでは、余計な「ドライブ」や「デレクトリ」を表示させております。
> > ここの逆引きヘルプの ファイルシステムコントロール（ドライブ・リスト・他）の連動 を
> > 見て下さい。
>
> 早速のご指導ありがとうございます。
> 逆引きヘルプを参照させて頂き、修正したいと思います。
1・逆引きヘルプを参考に、構成を作りかえてみましたが
代表のフォルダー内のサブフィオルダーの表示及びサブフォルダー内の
Excelファイルは表示できたのですが、選択したファイルを開こうとすると
何もも表示しません。
エラー表示もしません。どこの部分がおかしいのでしょうか？
2・ File list boxのデフォルト表示を空白に設定はできないのでしょうか？
Private Sub Command1_Click()
Dim Fso As New FileSystemObject
With List1
.Clear
.Visible = False
End With
Call sFolderSearch(Fso.GetFolder("C:\WINDOWS\デスクトップ\顧客管理"))
List1.Visible = True
End Sub
Private Sub sFolderSearch(ByRef myFolder As Folder)
Dim mySubFolder As Folder
With myFolder
If .SubFolders.Count > 0 Then
For Each mySubFolder In .SubFolders
List1.AddItem mySubFolder
Call sFolderSearch(mySubFolder)
Next
End If
End With
End Sub
Private Sub Command2_Click()
If MsgBox("終了しますか？", vbQuestion + vbYesNo, "終了") = vbNo Then
text2.SetFocus
Else
End
End If
End Sub
Private Sub Command3_Click()
On Error Resume Next
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(List1 & "\" & File1.Path) 'オープンするファイル名
Set xlSheet = xlBook.Worksheets(1)
xlApp.Visible = True 'Excelを表示
If Right(File1.Path, 1) = "\" Then
Image1.Picture = LoadPicture(File1.Path & File1.FileName)
Else
Image1.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
End If
End Sub
Private Sub File1_Click()
Image1.Stretch = True
Dim file As String
Dim myshape As Shape
End Sub
Private Sub List1_Click()
File1.Path = List1
End Sub