- ベストアンサー
VBでEXCELシートを読み込んだとき・・・
CreateObject("Excel.Application")を使ったとき データが入っている所までってわかるのでしょうか？ OpenDatabaseのようなEOFってあるのでしょうか シートに入っている内容を構造体にセットするのに６５５３５行まで読むと無駄なので入っているところまでを読みたいのですが 何か良いやり方がありましたら教えてください
- Geek
- お礼率32% (9/28)
- Visual Basic
- 回答数4
- ありがとう数2
- みんなの回答 （4）
- 専門家の回答
関連するQ&A
- VBとExcelオブジェクト
VB6から 起動してまたは→CreateObject ("Excel.Application") オープン中の→GetObject(, "Excel.Application") Excelのデータを取り込んでいるのですが エクセルのデータが一定以上の行を超えると エクセルがタスクに残ってしまいます。 過去ログなどを見ましたがいまいち原因がつかめません。 使っているのは、Rangeぐらいしかありません。 現状は、取込範囲が 44行でアウト 40行はＯＫといった感じです。 複雑なことはやっていませんが 取り込む行数によって現象が 起こったり起こらなかったりして 困っています。 ************************************ プログラム概要 GetObject版 Dim objExcel As Excel.Application Dim SheetNm As String Set objExcel = GetObject(, "Excel.Application") SheetNm = objExcel.ActiveSheet.Name Do Until 縦=終了条件 Do Until 横=終了条件 構造体.XXX = objExcel.Range(座標).Value 横=横+1 Loop 縦=縦+1 Loop Set objExcel = Nothing . . . 格納した構造体のデータをデータベースに格納 . . . ************************************ CreateObjectの場合は、 openやclose、Quitも記述してあります。
- ベストアンサー
- Visual Basic
- VB6でExcelシートのコピー、貼付け
VB6でExcelファイルを開いてシートをコピーし、新規ファイルとして保存したいのですが方法がわかりません。 （既存のExcelシートを雛形として新しくBookを作りたいんです） Set objexcel = CreateObject ("Excel.Application") Set objexcel_new = CreateObject("Excel.Application") objexcel.Workbooks.open (App.Path & "\book1.xls") objexcel_new.Workbooks.Add '新規に作る 'シートのコピー objexcel.sheets("Sheet1").Copy objexcel_new.sheets("Sheet1").Select objexcel_new.activesheet.Paste としても、実行前のクリップボードの中身が貼り付けられるだけで、シートがコピーできません。 よろしくお願いします。
- 締切済み
- Visual Basic
- VB5.0からExcel97にデータを書き込むとき
VB5.0からExcel97にデータを書き込んだりする場合、最初にVBのほうで どういう設定をしなければいけないのでしょうか？ 参照設定でMicrosoft Excel 8.0 Object Libraryを選択していて 以下の文をVBに設定しています。 Dim ExcelApp As Object Set ExcelApp = CreateObject("Excel.Application") これだけだと、起動したときに"Excel.Application"の部分が 「型が一致しません」でエラーになります。 何か足りない設定があるのでしょうか？ 説明がわかりにくいかと思いますが、どうしたらいいかなかなか わかりません。どうぞよろしくお願いします。
- ベストアンサー
- Visual Basic
- VBScriptでEXCELシートに保護をかけたい
いつも参考にしています VBAですと下記コードですが ActiveSheet.Protect Password:=11111, DrawingObjects:=True, Contents:=True, Scenarios:=True VBScriptのコーデイングが分かりません Set EXCELAPP = CreateObject("Excel.Application") Set BOOK = EXCELAPP.Workbooks.Open("@.xls") Set SHEET = EXCELAPP.Sheets(0) この後にシート保護のコーディングをしたいのですが。。。 ヒントをお願いします
- ベストアンサー
- その他（プログラミング・開発）
- VB6.0上でExcelオブジェクトを生成
質問です。 VB6.0上でExcelオブジェクトの生成についてです。 その１ Dim xlApp As Excel.Application … Set xlApp = CreateObject("Excel.Application") と その２ Dim xlApp As Object … Set xlApp = CreateObject("Excel.Application") と、どちらが良いのでしょうか？ 開発環境は Win XP SP2 VB 6.0 Excel 2003 実行環境は Win 98 SE VB 6.0(ランタイムのみ) Excel 2000 SR-1 です。 開発環境ではその１、その２ともOKなのですが、 実行環境ではその２のみがOKです。 参考書にはその１が書かれていますが、その２を使うことによって何か不具合や都合の悪いことが起こりうるのでしょうか？ あるいは当方の見当違いで根本的に何かが間違っているのでしょうか？ どんな些細なことでも結構ですので宜しくお願いします。
- ベストアンサー
- Visual Basic
- VB6は初心者です。
VB6は初心者です。 VB6を使用してEXCELを起動し使用しています。 If xlApp = 0 Then 'Excelが起動されていない Set xlApp = GetObject(, "Excel.Application") '///// 指定したＢＯＯＫを開く ///// Set xlApp = CreateObject("excel.application") Set xlBook = xlApp.Workbooks.Open("C:\test.xls") xlApp.IgnoreRemoteRequests = True 'excelはtest.xls専用として開く End If と記述しておりEXCELでは問題なく起動しています、 基本的に上記の記述もアプリケーションを作成してもらっていて内容を熟知していないための質問です。 この状況でexcelではなく代わりにOpen Officeがインストールされているとした場合、動作するものかどうか。 具体的にはシートにあるデータのリード／ライトしか使用はしていません。 お分かりになる方がいたら教えていただけますでしょうか。 宜しくお願いします。
- ベストアンサー
- Visual Basic
- 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")
- ベストアンサー
- Visual Basic
- VBSを使って Excel の任意シートを開くには
ＶＢＳ初心者です。知識のある方、ご教授願えませんか。 VBScript で同一フォルダにある「複数の Excelファイルを順番に任意のシートを選択して 開く」というのを実行したいのですが、どのようにすればよいでしょうか 仕事で急に必要になったのですが、VBScript の知識がなく困っていおります。 色々と調べてシート名が「半角英数字」なら成功したのですが、「漢字」の場合は「インデックスが有効範囲にありません」とエラーメッセージがでます。 「漢字」のシートを選択した場合でも成功するようにしたいのですが、どなたかご教授願えませんでしょうか？ （●成功例）「半角英数字」のシートを指定した場合 Option Explicit Dim bk, ex, f, gf, sh, so Set so = CreateObject("Scripting.FileSystemObject") Set gf = so.GetFolder(".") Set ex = CreateObject("Excel.Application") ex.Application.DisplayAlerts = False ex.Visible = true For Each f In gf.Files If LCase(so.GetExtensionName(f.Name)) = "xlsm" Then Set bk = ex.Workbooks.Open(gf & "\" & f.Name) ex.worksheets("shukei").select Set sh = bk.Worksheets(1) End If Next MsgBox("Finished!") （●失敗例）「漢字」のシートを指定した場合 Option Explicit Dim bk, ex, f, gf, sh, so Set so = CreateObject("Scripting.FileSystemObject") Set gf = so.GetFolder(".") Set ex = CreateObject("Excel.Application") ex.Application.DisplayAlerts = False ex.Visible = true For Each f In gf.Files If LCase(so.GetExtensionName(f.Name)) = "xlsm" Then Set bk = ex.Workbooks.Open(gf & "\" & f.Name) ex.worksheets("集計").select Set sh = bk.Worksheets(1) End If Next MsgBox("Finished!")
- ベストアンサー
- Visual Basic
- EXCEL:複数シートから特定行を一覧化したい
【 EXCELで悩んでいます 】 複数のシートから特定の言葉の記入がある行だけ、 新規ワークシートへ自動で書き出したいのですが難儀しています。 当方エクセル初心者でして、 ピボットテーブルもマクロも組んだことがありません。 工程数がかかってもいいので、できるだけ優しい方法を教えて下さい。 仕事で使うデータで、これがあると非常に助かります。 【 準備しているデータ 】 ・参照したいデータシートは8枚 ・それぞれ、同じフォーマットで内容が異なる60行弱の文字データ （画像参照ください。このようなデータシートが8枚あります） 【 やりたいこと 】 8枚にも渡るシートの内容のなかから、 特定の文字が入っているもの（画像でいうと、G列「進捗」の「作業中」になっている行）だけを自動的に抽出して 一枚の新規シートにまとめて一覧化したい 【 環境 】 EXCEL 2003 Windows 面倒かとは思いますが、 お優しいエクセルマスター様がいらっしゃると信じております。 どうかよろしくお願い申し上げます。
- ベストアンサー
- その他MS Office製品
- Access VBAからExcelシートの削除
お世話になります。 Access VBA から指定したExcelシートの削除を行うプログラムを下記の通りに記載しています。 Set oApp = CreateObject("Excel.Application") oApp.Workbooks.Open FileName:="エクセル.xls" oApp.DisplayAlerts = False oApp.Sheets("シート名1").Delete oApp.DisplayAlerts = True この場合において、"シート名1"が存在していれば問題なく処理されますが、 このシートが存在していなければエラーが起きます。 指定したExcelブックにこのシートが存在するかどうかのチェックを事前に行い、 存在する場合のみ削除処理を行うにはどうすればよいでしょうか？ よろしくお願いします。 環境は、Access2007です。
- 締切済み
- オフィス系ソフト
