ベストアンサー

※ ChatGPTを利用し、要約された質問です（原文：VB6は初心者です。）

VB6を使用してEXCELを起動する方法

2010/10/01 13:33

このQ&Aのポイント

VB6を使用してEXCELを起動する方法について質問があります。
質問者はVB6初心者であり、VB6を使用してEXCELを起動しています。
質問者はEXCELが起動していない場合、VB6コードを使用してEXCELを起動することができます。

nyanta0320
お礼率60% (3/5)

Visual Basic
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

ShowMeHow
ベストアンサー率28% (1424/5027)

2010/10/01 13:54 回答No.1

ひらきません。こちらを参考に。 http://user.services.openoffice.org/ja/forum/viewtopic.php?f=19&t=186

関連するQ&A

VB2008 エクセル出力

VB2008 エクセル出力教えていただけると助かります VB6.0使用時にエクセル出力をするために下記のようなプログラムで出力していました ※「Microsoft Excel 9.0 Object Library」を参照 Dim xlApp As EXCEL.Application Dim xlBook As EXCEL.Workbook Dim xlsheet As EXCEL.Worksheet Dim File As String File = App.Path + "\EXCEL\" + "フォーム.xls" Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open(File) Set xlsheet = xlBook.Worksheets("テスト") xlsheet.Range("A1") = "テスト" 'フォルダ作成 If Dir("D:\", vbDirectory) = "" Then Call Mkdirs("D:\テスト") 'Worksheetを名前をつけて保存します。 xlApp.DisplayAlerts = False xlsheet.SaveAs "D:\テスト\テスト.xls" xlApp.Quit Set xlApp = Nothing Set xlBook = Nothing Set xlsheet = Nothing VB2008の場合だとどのように書けば同じように動きますか ※色々試してみましたがダメでした「Microsoft Excel 12.0 Object Library」を参照しています
既に開いているエクセルを閉じるには？

既に該当のファイルが開いているのなら閉じたいのですが xlBook.Quitだとエラーになります。 Sub test1() Dim xlApp As Excel.Application Dim xlBook As Workbook Dim FileName As String FileName = "C:\test.xlsm" Set xlApp = GetObject("", "Excel.Application") 'GetObjectで合ってるか不安 Set xlBook = xlApp.Workbooks.Open(FileName) If xlBook.ReadOnly = True Then 'ファイルが開いてるのなら MsgBox "既にファイルが開いているので閉じます。" xlBook.Quit 'エラー　438 End If xlApp.Quit 'これって何のために必要？ Set xlBook = Nothing 'ココを通り過ぎるのにすごく時間がかかる。 Set xlApp = Nothing End Sub と言うコードを作りました。 xlBook.Quitがダメならどのコードを使えばいいでしょう？また、 GetObject("", "Excel.Application") と言う開き方でいいのでしょうか？あと、 xlApp.Quit は何のために必要なのでしょう？タスクマネージーのプロセスを見ると、 Set xlApp = GetObject("", "Excel.Application") を通る時に新しいＥＸＣＥＬ．ＥＸＥが作成され、 Set xlApp = Nothing を通り過ぎる時に、そのＥＸＣＥＬ．ＥＸＥが消えます。だから xlApp.Quit は不要ですか？
VBからEXCELを保存

VBからEXCELに保存したいのですが、前準備としてEXCELのsheet2で保存します。VBを実行したときにExcelのsheet1に保存したいのですが、どうすればいいかわかりません、おしえてください。多分、保存するときにSheet2を対象にしていると思うので、sheet１を対象にしたいのですが・・・ /****************** VBを実行したときの処理 ********************/ 'アプリケーションの参照 Set xlApp = CreateObject("Excel.Application") 'ブックの参照 Set xlBook = xlApp.Workbooks.Open("C:\テスト\テスト.Xls") 'シートの参照 Set xlSheet = xlBook.Worksheets("Sheet1")
Excelブックの保護パスワード判定方法

VB6.0で、Excelブックが保護パスワードされているかどうかの判定を行いたいです。以下のようにHasPasswordプロパティを使用してみたのですが、保護パスワード付きのExcelブックでテストしてみると Workbooks.Openの部分で処理が止まってしまい、先にすすみません。基本的にやり方が間違えているんでしょうか？お分かりになる方がいらっしゃいましたら、教えてください。よろしくお願いします。　 Dim xlApp　　As Excel.Application 　 Dim xlBook　 As Excel.Workbook 　 Set xlApp = CreateObject("Excel.Application") 　 Set xlBook = xlApp.Workbooks.Open("C\:TEST.xls") If xlBook.HasPassword Then Msgbox("保護パスワードあり"） Else Msgbox("保護パスワードなし"） End If 　 Set xlSheet = Nothing 　 xlBook.Close 　 Set xlBook = Nothing 　 xlApp.Quit 　 Set xlApp = Nothing
vbスクリプトについて

Excelファイル（D:\test.xls）を再起動するvbスクリプトを作成し、４時間おきに実行するタスクスケジュールを設定したいと思います。 ※6:00、10:00、14:00、18:00、22:00、2:00のタスクスケジュールを作成し、　vbスクリプトを実行。次のタスクスケジュールが実行されるまでの４時間は、Excelファイル（D:\test.xls）は開いたままの状態です。なので、vbスクリプトで、まずExcelファイル（D:\test.xls）が開いている場合は、「D:\test.xls」を一旦（上書き保存なしで）閉じて、再度、「D:\test.xls」を開きたいと思っています。 ※他のExcelファイルが開いている場合は、「D:\test.xls」のみ閉じる。「D:\test.xls」を開くスクリプトはできたのですが、「D:\test.xls」を閉じるところがわかりません。どなたか教えていただけないでしょうか。【vbスクリプト】----------------------------------------- '「D:\test.xls」が開いている場合は閉じる　？？？ '「D:\test.xls」を起動する Dim xlApp Dim xlWbk Set xlApp=CreateObject("Excel.Application") xlApp.Visible=True Set xlWbk=xlApp.Workbooks.open("D:\test.xls",True) ---------------------------------------------------------
VBからＥｘｃｅｌのアクティブセルの位置を知る方法

VB6でExcel2000のワークシートを操作するプログラムを作成しています。次のようなことをやりたいと思ってます。 (1)Excelのワークシートを開く (2)ワークシートの1点をクリックして、アクティブセルとする。（例えばA1) (3)VBのプログラムのボタンを押すと、アクティブセルを基点に３×３を選択範囲とする。そこで次のようなプログラムを書いてみました。 Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Set xlApp = GetObject(, "Excel.Application") If Err.Number Then MsgBox "Excel が起動されていません。" Err.Clear Else ' MsgBox "Excel はすでに起動中です。" Set xlBook = xlApp.Workbooks.Item(1) Set xlSheet = xlBook.Worksheets.Item(1) 　　　　'アクティブセルを取得する　　　　'アクティブセルを３ｘ３に拡張する計算 xlSheet.Range("3x3に拡張した範囲").Select Set xlSheet = Nothing Set xlBook = Nothing Set xlApp = Nothing End If しかし、アクティブセルを取得する方法がわかりません。誰か教えてください。
VBからエクセルを起動。そのあとエクセルを終了

教えてください。ＶＢからエクセルを起動します。そのあと、エクセルのシートの上にデータを貼り付けます。そして、エクセルを終了します。しかし、エクセルが終了しません。タスクバー上のエクセルをクリックすると終了します。どうして、このような現象が起こるのかわかりません。教えてください。下記に同様のサンプルを書きました誤記入があるかも知れませんがこのような感じのプログラムです。以上、よろしくお願いします。 public sub test Dim XApp as Excel.Application Dim nfilename as string Dim xlBook As Object Dim xlSheet As Object ' エクセルを起動 Set xlApp = New Excel.Application nfilename ="AAAA.xls" ' 指定されたファイルを開く Call xlApp.Workbooks.Open(nfilename) Set xlBook = xlApp.ActiveWorkbook Set xlSheet = xlBook.Worksheets(1) 'フォームを貼り付ける xlSheet.Range("a1").PasteSpecial 　　　　'ファイル名の作成 Filename="BBBB.xls" '保存 ChDir "C:\" xlBook.SaveAs Filename:=Filename,FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False Set xlSheet = Nothing xlBook.Close True Set xlBook = Nothing xlApp.Quit Set xlApp = Nothing End sub
VB6.0上でExcelオブジェクトを生成

VB6.0上でExcelオブジェクトの生成についてです。その１ Dim xlApp As New Excel.Application Dim xlBook As New Excel.Workbook Dim xlSheet As New Excel.Worksheet Set xlApp = New Excel.Application Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets(1) とその２ Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets(1) と、どちらが良いのでしょうか？開発環境は　Windows2000 　VB 6.0 　Excel 2003 です。
VBからExcelを操作

VisualBasic6.0(初心者) VBを始めたばかりで、Excelの入力文字をVBで変換しようと考えています。様々な保管場所にあるExcelを開いて選択セルの文字をコマンドボタンで変換しようと下記コードを考えました。(一部) 問題は、Load時にすでに開いているExcelを閉じてまいます。何か良い方法は無いでしょうか？(アクティブなExcelを操作したい) また、下記コードで不適切なところがありましたら御教授願います。 Private Sub Form_Load() Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets(1) Set xlApp = GetObject(, "Excel.Application") With xlApp.Selection Cells(1, 1).Value = "" End With xlApp.DisplayAlerts = False xlApp.Quit Set xlSheet = Nothing Set xlBook = Nothing Set xlApp = Nothing End Sub '----------------------(大文字変換) Private Sub CB2_Click() On Error Resume Next If ActiveCell.Row = Null Then MsgBox "Excel が見つかりません" Else Dim xlApp As Excel.Application Set xlApp = GetObject(, "Excel.Application") If Err.Number Then MsgBox "Excel が起動されていません" Else Dim X As Long Dim Y As Long Dim Hmae As String Dim Hgo As String X = 0 Y = 0 With xlApp.Selection Do Do Hmae = Cells(ActiveCell.Row + X, ActiveCell.Column + Y).Value Hgo = StrConv(Hmae, 1) Cells(ActiveCell.Row + X, ActiveCell.Column + Y).Value = Hgo X = X + 1 Loop Until X >= .Rows(.Rows.Count).Row - .Row + 1 X = 0 Y = Y + 1 Loop Until Y >= .Columns(.Columns.Count).Column - .Columns(1).Column + 1 End With End If xlApp.DisplayAlerts = False Set xlApp = Nothing End If End Sub
エクセルを表示できない

プログラム初心者です。 Private Sub Command3_Click() On Error Resume Next Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet With xlApp.Application Set xlApp = GetObject("F:\vb6.0\book1.xls") Set xlBook = xlApp.Workbooks.Open("Book1") Set xlSheet = xlBook.Worksheets(1) xlApp.Application.Visible = True End Sub と入力したのですが、実行してボタンをクリックしてもエクセルの表が表示されません。なぜでしょうか？
ＳＥＴを使ったほうがよい？

accwessからエクセルファイルを開きたいのですが、 App.Workbooks.Open と、 Set xlBook = xlApp.Workbooks.Open とどちらを使った方がいいのでしょうか？ ////////////////////////////////////////////////////////// Private Sub ファイル１_Click() Dim App As Object Dim MyFileName As String MyFileName = "D:\My Documents\test.xls" Set App = CreateObject("Excel.Application") App.Workbooks.Open FileName:=MyFileName App.Visible = True End Sub でも Private Sub ファイル２_Click() Dim xlApp As Object Dim xlBook As Object Dim FileName As String Const FolderName ＝ "D:\My Documents\test.xls" Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open(FolderName & FileName) xlApp.Visible = True Set xlApp = Nothing Set xlBook = Nothing End Sub ////////////////////////////////////////////////////////// でも開けました。多分、SETを使うかどうかの違いだと思うのですがＶＢＡでコードを作る際、どちらのコードを使った方がいいか教えてください。
開いているXLSファイルが読み取り専用か調べる

Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open("C:\test.xls") Set xlSheet = xlBook.Worksheets(1) 開いたExcelファイルが読み取り専用になっているかどうかを調べるにはどうすればいいですか？ファイルの属性が読み取り専用かどうかは取得できるのですが、属性は読み取り専用ではなくても誰か他のユーザーがネットワークから開いているために読み取り専用で開いている場合もわかるようにしたいです。お願いします。
VB2008を使用していますが教えて下さい。

VB2008を使用していますが教えて下さい。 VBからExcelブックを開く時に「マクロを有効にする」を選択する画面を表示させずに直接ユーザフォームを表示させて、ExcelVBAを利用したいのですが、どうしても上手く出来ません。いろいろネットで調べて試行しているのですが、どれもエラーになってしまいます。現在下記の（1）（2）をExcelVBAの内容により使い分けをしています。助言方よろしくお願いします。（1）この記述では「マクロを有効にする」は表示されず直接ユーザフォームが表示されます。ただ、VBA上で新たなExcel形式のファイルを出力させても画面上に表示されません。 ※Visible＝True　の記述で解消しそうですが分かりません。 Dim xlApp As Object = CreateObject("Excel.Application") Dim xlBooks As Object = xlApp.workbooks Dim xlBook As Object = xlBooks.Open(FileName:="c:test.xls") xlApp = Nothing xlBooks = Nothing xlBook = Nothing （2）この記述では「マクロを有効にする」を選択する画面が表示されてしまいます。ただ、ExcelVBA上で新たなExcel形式のファイルを出力できます。 Dim proc As New Process() proc.StartInfo.FileName = "c:test.xls" proc.Start() proc = Nothing
ACCESSでExcelマクロを起動

ACCESS、Excelの2003を使用しています。常駐パソコンにACCESSプログラムを起動させておき、朝の6時になったらExcelの標準モジュールに記載しているマクロを起動し、開いたExcelを保存しようとしています。以下ACCESSに記載しているマクロです。 If Format(Now(), "hh:nn") = "06:00" Then strXlsS = "D:\テスト用ファイル.xls" Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True Set xlbook = xlApp.Workbooks.Open(strXlsS) 'エラー箇所' Application.Run "テスト用ファイル!テスト" End If 実行時エラー2517 プロシージャを見つけることができません。と、エラーが表示されてしまいます。該当のExcelのブックは開けているのですが、モジュールのマクロを起動することが出来ません。書き方がおかしいのでしょうか？
Excel.Applicationへのシートコピー

Public xlApp As Excel.Application Public xlBook As Excel.Workbook Set xlApp = CreateObject("Excel.Application") '非表示・画面更新無・アラート非表示 xlApp.Visible = False xlApp.ScreenUpdating = False xlApp.DisplayAlerts = False Set xlBook = xlApp.Workbooks.Add xlBook.SaveAs "test123.xls" '※ここでエラー Workbooks("TEST.xls").Sheets("TEST_1").Copy After:=xlApp.Workbooks(xlBook).Sheets(3) Set xlApp = Nothing Set xlBook = Nothing 環境：WindowXP SP2,Excel2003 SP3 以上のようにオブジェクト変数のEXCELに対してのシートコピーを行いたいのですが、コンパイルを行うとエラーがなく、実行すると「コンパイルエラー　修正候補：区切り記号　または（」とエラーが発生します。色々書き方を試してみたのですが、どれもうまくいきませんでした。宜しくお願いします。
VB2008のexeファイルについて

現在、VB2008でフォームを作成し、DataGridViewなどの情報を Excelに出力するというプログラムを設計したのですが、デバックでテスト動作を行うと、問題なく実行できるのですが、いざ、exeファイルをデスクトップに置き、実行すると「指定されたファイルが見つかりません。」というエラーが出てしまいます。開こうとしているのは、既存のExcelファイルなのですが、こちらが、Excelを開く部分のソースです。 Dim xlApp As Object Dim xlBook As Object Dim xlSheet As Object '--------------------- ' EXCELファイルを開く '--------------------- xlApp = CreateObject("Excel.Application") 'Application生成 Dim xlBooks As Excel.Workbooks = xlApp.Workbooks xlBook = xlBooks.Open("C:\TEMP\テスト.xls") xlApp.Visible = True 'EXCELの表示 xlSheet = DirectCast(xlBook.ActiveSheet, Excel.Worksheet) 'Worksheet 少し見づらいかもしれないのですが、まずObject型で宣言し、その値に、Excel.Applicationなどを代入し、その中で、マイコンピュータの中のTEMPというフォルダからテストというタイトルのExcelを立ち上げるという形になります。他のサイトやこちらの質問掲示板なども見たのですが、同じ結果になってしまうため、解決策が分からない状況となっています。どなたか、原因か、対策方法が思いつく方はご教授願えないでしょうか、よろしくお願いいたします。
VB.net(2005)でエクセルの特定名称のシートを操作したい。

　お世話になります。 WindowsXP + SP3、VB.net(2005)の環境にて開発をしております。 VB.netから既存のエクセルファイル（雛形）を開き、特定の名称のシートをアクティブにしたいのですがどのようにコーディングすれば良いでしょうか？ ※色々とネットで情報検索してみましたが特定の名前のシートを操作する　方法をうまく見つけられず質問致しました。エクセルファイル名：売上情報_2009年.xls シート名　　　　　："200901" ～ "200912" の12シート以前、VB6で同様のことを行ったときは以下のような記述で実現できました。 Dim xlApp As Object Dim xlsheet As Object xlApp = CreateObject("Excel.Application") xlApp.Workbooks.Open(FileName:="C:\売上情報_2009年.xls") xlsheet = xlApp.Sheets("200908") xlsheet.Activate() 現状、vb.netで以下のコーディングまではできております。 Dim xlApp As New Excel.Application Dim xlBooks As Excel.Workbooks = xlApp.Workbooks Dim xlBook As Excel.Workbook = xlBooks.Open("C:\売上情報_200904.xls") Dim xlSheets As Excel.Sheets = xlBook.Worksheets よろしくお願い致します。　
エクセルvba

エクセルvbaなのですが Sub test() Dim xlApp As Object Dim xlBook As Object Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open(ActiveWorkbook.FullName) 'コード・・・ Set xlApp = Nothing Set xlBook = Nothing End Sub これだと Set xlBook = xlApp.Workbooks.Open(ActiveWorkbook.FullName) の部分で、エラーになります。実行時エラー1004です。自身ファイルをオブジェクトに格納して操作したいのですがどうすればいいでしょうか？
VBでエクセルのバージョンを指定して開く

PCにEXCEL2002と2013がインストールされています。 VBでエクセルを起動し、マクロを実行したいのですが、その際に起動するエクセルのバージョンを指定したいと考えています。以下でやると標準設定のEXCELが開いてしまい、バージョンの指定ができません。 Dim xlApp As New Excel.Application() Dim xlBooks As Excel.Workbooks xlBooks = xlApp.Workbooks xlBooks.Open("C:\test.xls") xlApp.Visible = True xlApp.Run("test.xls!macro") なにか方法はありますでしょうか？
「もし既にファイルを開いているなら、開かない」

おはようございます。 accessからExcelのブックを開く処理をしています。 VBAでファイルを開く時に、「もし既にファイルを開いているなら、開かない」という行為をしたいのですが、どのようにすればいいでしょうか？ *************************************************************************** Sub サンプル() Dim xlApp As Object Dim xlBook As Object Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open("C:\【Excel】\料理.xlsm") xlApp.Visible = True'ファイルを開く？表示する？ Set xlApp = Nothing Set xlBook = Nothing End Sub *************************************************************************** このコードの、 xlApp.Visible = Trueを、 if　xlBook がまだ開いてない　then xlApp.Visible = True Else End If のような事がしたいのですが、可能でしょうか？ご教授よろしくお願いします。

VB6を使用してEXCELを起動する方法

VB6は初心者です。

質問者が選んだベストアンサー

関連するQ&A

VB2008 エクセル出力

既に開いているエクセルを閉じるには？

VBからEXCELを保存

Excelブックの保護パスワード判定方法

vbスクリプトについて

VBからＥｘｃｅｌのアクティブセルの位置を知る方法

VBからエクセルを起動。そのあとエクセルを終了

VB6.0上でExcelオブジェクトを生成

VBからExcelを操作

エクセルを表示できない

ＳＥＴを使ったほうがよい？

開いているXLSファイルが読み取り専用か調べる

VB2008を使用していますが教えて下さい。

ACCESSでExcelマクロを起動

Excel.Applicationへのシートコピー

VB2008のexeファイルについて

VB.net(2005)でエクセルの特定名称のシートを操作したい。

エクセルvba

VBでエクセルのバージョンを指定して開く

「もし既にファイルを開いているなら、開かない」

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

VB6を使用してEXCELを起動する方法

VB6は初心者です。

質問者が選んだベストアンサー

関連するQ&A

VB2008 エクセル出力

既に開いているエクセルを閉じるには？

VBからEXCELを保存

Excelブックの保護パスワード判定方法

vbスクリプトについて

VBからＥｘｃｅｌのアクティブセルの位置を知る方法

VBからエクセルを起動。そのあとエクセルを終了

VB6.0上でExcelオブジェクトを生成

VBからExcelを操作

エクセルを表示できない

ＳＥＴを使ったほうがよい？

開いているXLSファイルが読み取り専用か調べる

VB2008を使用していますが教えて下さい。

ACCESSでExcelマクロを起動

Excel.Applicationへのシートコピー

VB2008のexeファイルについて

VB.net(2005)でエクセルの特定名称のシートを操作したい。

エクセルvba

VBでエクセルのバージョンを指定して開く

「もし既にファイルを開いているなら、開かない」

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

カテゴリ
一覧

専門家に質問してみよう
専門家登録