投稿日	： 2007/07/02(Mon) 13:08
投稿者	： おじん
Ｅメール	：
ＵＲＬ	：
タイトル	： マクロが組み込まれたエクセルファイルを読む

マクロが組み込まれたエクセルファイルを読んでVBにデータを取り
込みたい。この際、オペレータの操作を極力少なくするために、
下記サンプル（いずれもこのサイトのサンプルを参照）で試みたの
ですが、マクロが無い場合はよいのですが、マクロがあると、

１．の場合、
　　a.マクロの有効／無効のダイアログを表示
　　b.マクロ内にある「メニューフォ−ム」を表示
　　c.データ保存の有無の問い合わせダイアログを表示
２．の場合、
　　1の場合の、b,cを表示します。

これら「不要な表示」をなくするにはどうしたらよいのでしょうか。
なお、マクロは有効にしなければなりません。
よろしくご指導ください。

WinXP,VB6(sp5)
Micro Office 11.0 Object Library
Excel 2003

試行1.　Sample 012 を参照した
　　Dim xlApp　　As Workbook
　　Dim xlFile　 As String
　　Dim xlSheet　As String
　　
　　'エクセルのファイル名
　　xlFile = APP.Path & "\test.xls"
　　xlSheet = "Print"　 'ブックのシート名
　　
　　Set xlApp = GetObject(xlFile, "Excel.Sheet")

　　Dim tmp
　　With xlApp.Worksheets(xlSheet)
　　　　'セルデータを操作
　　　　tmp = tmp & Val(.Range("B12")) & vbCrLf


試行2.　エクセルを操作（その１）既存のエクセルファイルを開くから
　　Dim xlApp　　As Excel.Application
　　Dim xlBook　 As Excel.Workbook
　　Dim xlFile　 As String
　　Dim xlSheet　As String
　　
　　'エクセルのファイル名
　　xlFile = APP.Path & "\test.xls"
　　xlSheet = "Print"　'ブックのシート名　
　　
　　Set xlApp = CreateObject("Excel.Application")
　　Set xlBook = xlApp.Workbooks.Open(xlFile, ReadOnly:=True)

　　Dim tmp
　　With xlApp.Worksheets(xlSheet)
　　　　'セルデータを操作
　　　　tmp = tmp & Val(.Range("B12")) & vbCrLf

★ - マクロが組み込まれたエクセルファイルを読.. - おじん 07/07/02-13:08No.9501
• Re: マクロが組み込まれたエクセルファイル.. - ダンボ 07/07/02-15:23 No.9503
  • Re^2: マクロが組み込まれたエクセルファイ.. - おじん 07/07/02-16:38 No.9506
    • Re^3: マクロが組み込まれたエクセルファイ.. - 花ちゃん 07/07/02-19:34 No.9508
      • Re^4: マクロが組み込まれたエクセルファイ.. - おじん 07/07/03-04:40 No.9512
• Re: マクロが組み込まれたエクセルファイル.. - YK 07/07/04-08:15 No.9523
  • Re^2: マクロが組み込まれたエクセルファイ.. - おじん 07/07/04-17:04 No.9530