投稿日 | : 2003/08/21(Thu) 13:38 |
投稿者 | : shin1 |
URL | : |
タイトル | : VBでエクセル実行後 |
はじめまして。早速ですが、質問です。
VB(Ver6 SP3)でエクセルの処理を行った後で、エクセルを開くと
(エクスプローラからファイル名をダブルクリック)セル部分が表示されません。
2回目以降は正常に表示します。1回目から正常に表示する方法は無いのでしょうか?
(エクセルを起動し、ファイルを開くでの場合は表示されます。)
宜しくお願い致します。
エクセルの処理部分は、下記のようになっています。
'
Set xlBook = GetObject(k_name)
On Error GoTo exlerr
'Excelを表示
''' xlBook.Application.Visible = True
'Bookを非表示
num = xlBook.Application.Workbooks.Count
xlBook.Parent.Windows(num).Visible = False
'メッセージや警告メッセージを表示させない
xlBook.Application.DisplayAlerts = False
'
fsu = 0
fsu = xlBook.Worksheets.Count
ReDim Preserve f_nam(1 To fsu)
For i1 = 1 To xlBook.Worksheets.Count
f_nam(i1) = fld_name & sys_name & xlBook.Worksheets.Item(i1).Name & ".csv"
xlBook.Sheets(xlBook.Worksheets.Item(i1).Name).SaveAs FileName:=f_nam(i1), FileFormat:=xlCSV, CreateBackup:=False
Next
'Excelの終了
xlBook.Application.Quit
Set xlBook = Nothing