| 投稿日 | ： 2005/08/09(Tue) 18:56 |
| 投稿者 | ： いしよし |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： [既存のエクセルファイルを開く]がうまく開かない |
[環境]VB6.0（SP6）/ エクセル:2000 / OS:XP
はじめまして
ＶＢからエクセルの作業が慣れてないので質問させてください。
ＶＢでエクセルのファイルをコピーして、そのファイルを開く作業をしています。
こちらのサンプル集を参考に作成させて頂きましたが
[xlApp.Visible = True]のところでエクセルを表示させているのですが
おかしな表示がされます。（セルの部分が真っ暗でデータの表示がありません。）
デバックするのにもちゃんと表示させたいのですが、どのようにしたらよいでしょうか？
参照設定に[Microsoft Excel 9.0 Object Library]
[Microsoft Office 11.0 Object Library]
をチェックをしています。
////////////////////////////////////////////////////
Private Sub cmdRun_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim sFile As string
Dim sFile_NEW As string
sFile="c:\前月.xls"
sFile_NEW ="c:\今月.xls"
'前月のxlsファイルをコピーして今月のxlsを作る
FileCopy sFile, sFile_NEW
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(sFile_NEW)
Set xlSheet = xlBook.Worksheets(1)
xlApp.Visible = True 'Excelを表示
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
'終了処理
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
End Sub
////////////////////////////////////////////////////