投稿日	： 2003/10/29(Wed) 23:16
投稿者	： 館山照夫
ＵＲＬ	：
タイトル	： 既存のExcelファイルにアクセスするには

1.VBを使い既存Excelファイルにアクセスしたい

2.動作環境　　OS：windowsXP使用

3.現在の状況　管理項目　20項目のフォルダを作成し、各管理項目のフォルダーの中に、excelのユーザ毎のデータファイル　　　　　　　50社分を作成、excelで一覧表ファイルを作成し、そのシートに各管理項目とユーザ毎のマトリクスを作り、　　　　　　　各管理項目毎のユーザファイルにリンクを張ってデータ投入しております。
　　　　　　　リンクの数がものすごく多く、しかも処理動作が遅くスタックすることが多々あります。

4.ＶＢを使って効率よく既設のExcelファイルにアクセスし、データ登録したい。

5.今回サンプル内容等参考にして作成した内容です。

Private Sub Command1_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(Dir1.Path & "\" & File1)  'オープンするファイル名
    　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 Command2_Click()
       End　　　　　　　　　’プログラムを終了
End Sub

Private Sub Dir1_Change()
      File1.Path = Dir1.Path  ‘dir1のフォルダを変更したときfile1へ反映させる  
End Sub

Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive  ‘Drive1での参照ドライブを変更したときDir1へ反映させる  
End Sub

Private Sub File1_Click()
      Image1.Stretch = True
      Dim file As String
      Dim myshape As Shape
        
End Sub

6.問題点　これでは、余計な「ドライブ」や「デレクトリ」を表示させております。
　　　　　選択に時間もかかります
　　　　　・LIST　Boxには、選択したい管理項目のみ表示
　　　　　・FileListBoxには、選択した管理項目内のexcelファイルを全て表示させ
　　　　　・選択したファイルを表示してデータメンテするには、どのように変更すればよろしいでしょうか。
　　　　　

★ - 既存のExcelファイルにアクセスするには - 館山照夫 10/29-23:16No.6442
• Re: 既存のExcelファイルにアクセスするに.. - 花ちゃん 10/30-00:47 No.6446
  • Re^2: 既存のExcelファイルにアクセスする.. - 館山照夫 10/30-08:59 No.6453
    • Re^3: 既存のExcelファイルにアクセスする.. - 館山照夫 11/03-04:25 No.6499
      • Re^4: 既存のExcelファイルにアクセスする.. - 花ちゃん 11/03-11:08 No.6500
        • Re^5: 既存のExcelファイルにアクセスする.. - 館山照夫 11/03-13:13 No.6502
    • Re^3: 既存のExcelファイルにアクセスする.. - 館山照夫 11/06-08:44 No.6523