投稿時間:2005/08/09(Tue) 18:56 投稿者名:いしよし
Eメール:
URL :
タイトル:[既存のエクセルファイルを開く]がうまく開かない
[環境]VB6.0(SP6)/ エクセル:2000 / OS:XP
はじめまして VBからエクセルの作業が慣れてないので質問させてください。 VBでエクセルのファイルをコピーして、そのファイルを開く作業をしています。 こちらのサンプル集を参考に作成させて頂きましたが [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
////////////////////////////////////////////////////
|