VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日: 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


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- Web Forum -