Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


65600 / 76738 ←次へ | 前へ→

【15711】Re:VB6からExcleの値を使いたい
お礼  初心者  - 04/7/3(土) 18:08 -

引用なし
パスワード
   有り難うございます。
参考ソ−スフアイルをみて何とか理解できました。
またわからない時にはご教示をお願いします。

▼ちん さん:
>こんばんは、ちんといいます。
>Private Sub Command1_Click()
>  Dim I_xlsBOOK        As Excel.Workbook  'EXCELのブック
>  Dim I_xlsSHEET        As Sheets      'EXCELのシート
>  
>  Set I_xlsBOOK = GetObject("c:\取引先マスタ.xls")
>
>  Set I_xlsSHEET = I_xlsBOOK.Worksheets
>  I_xlsBOOK.Application.Visible = True 'Excelを表示する
>
>  I_xlsBOOK.Parent.Windows(1).Visible = True
>  DoEvents
>  
>  
>  MsgBox I_xlsSHEET.Application.Cells(1, 2).Value
>  MsgBox I_xlsSHEET.Application.Cells(2, 2).Value
>  For i1 = 1 To 1000: DoEvents: Next i1
>
>  'EXCELのマクロ(Macro1)を実行する。時は、下記の命令一行追記
>  I_xlsBOOK.Application.Run "'c:\取引先マスタ.xls'!Macro1"
>  
>  DoEvents
>  I_xlsBOOK.Application.Quit
>  DoEvents
>  
>  I_xlsBOOK.Application.Quit
>  For i1 = 1 To 1000: DoEvents: Next i1
>  DoEvents
>    
>  'EXCELのクローズ
>  Set I_xlsBOOK = Nothing
>  Set I_xlsSHEET = Nothing
>  Sleep (200)
>  DoEvents
> 
>  Exit Sub
>  
>End Sub
>
>※VB6.0の参照設定でMicrosoft Excel10.0 Objectをチェックして下さい。
>IROCさんが言うように、テキストファイルで取得するのと、
>Excel表から直接取得するのでは、断然にテキストファイルでの取得が早いですよ。
>
>参考までに、私の場合は、
>・Excel表から大量データを取得する場合、
> (1)VB6.0からExcel表を起動する。
> (2)VB6.0からExcel表のマクロ(VBAで作成した言語)を起動する。
> (3)Excel表のマクロで対象データをテキストファイルに出力する。
>
>・VBで抽出した大量データをExcel表にセットする場合、
> (1)VB6.0からExcel表を起動する。
> (2)VB6.0からExcel表のマクロ(VBAで作成した言語)を起動する。
> (3)Excel表のマクロで対象データをExcelの各セルにセットする。
>簡単にいうとこんな感じでしょうか?
>私は、VB6.0の帳票など、すべてExcel表で印刷指示しております。
>
>ですから、こちらのページはとても参考になります。
>以上、参考までに・・・
0 hits

【15662】VB6からExcleの値を使いたい VB初心者 04/7/1(木) 18:15 質問
【15663】Re:VB6からExcleの値を使いたい IROC 04/7/1(木) 18:23 回答
【15666】Re:VB6からExcleの値を使いたい VB初心者 04/7/1(木) 18:44 お礼
【15664】Re:VB6からExcleの値を使いたい ちゃっぴ 04/7/1(木) 18:28 回答
【15665】Re:VB6からExcleの値を使いたい VB初心者 04/7/1(木) 18:42 お礼
【15696】Re:VB6からExcleの値を使いたい ちん 04/7/2(金) 21:58 回答
【15700】Re:VB6からExcleの値を使いたい 初心者 04/7/3(土) 11:38 質問
【15704】Re:VB6からExcleの値を使いたい IROC 04/7/3(土) 12:45 回答
【15710】Re:VB6からExcleの値を使いたい ちん 04/7/3(土) 17:07 回答
【15711】Re:VB6からExcleの値を使いたい 初心者 04/7/3(土) 18:08 お礼

65600 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free