• ベストアンサー

ExcelのマクロでCSVファイルを開くと遅いのですが

ExcelのマクロでCSVファイルを開くと遅いのですが速く開く方法はありますか？ 普通にファイル－開くに比べてかなり遅いです。 下記のVBAで記述してあります。 Workbooks.Open Filename:=fname ActiveWorkbook.SaveAs Filename:=fname, FileFormat:=xlCSV, _ CreateBackup:=False ActiveWorkbook.Close savechanges:=False

noname#8374
noname#8374

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

  • ベストアンサー
  • marubouzu
  • ベストアンサー率53% (15/28)
回答No.1

fnameにパス＋ファイル名を入力しておいて開くのですよね。 ＣＳＶファイルを開くだけなら、１行目の記述だけで開けます。 このＶＢＡでは、その後ファイルをセーブしてクローズしてます。 このセーブ、クローズの作業分遅いのではないでしょうか？

noname#8374
質問者

補足

実は、DBFファイルをExcelで開いてfname（CSVファイル）で保存しています。 それで２，３行目が記述してあります。 ４種類のDBFファイルで４種類のCSVファイルを作るマクロにしてあります。 遅いのは１行目だと思うのですが・・・

その他の回答 (1)

  • marubouzu
  • ベストアンサー率53% (15/28)
回答No.2

ＤＢＦファイルを開いてＣＳＶでセーブしているのですか。 済みません、ＤＢＦファイルは扱った事が無いのでよく分かりません。 ＣＳＶファイルを開く限りに於いては、マクロもファイル開くも変わらないという印象ですが... マクロの記録を有りにして、”普通にファイル－開く”を行い、生成されたＶＢＡを比較してみては如何でしょうか？

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • エクセルと同じファイル名でｃｓｖを作成するマクロ

    エクセルからＣＳＶファイルをYYMMDD付でマクロを使って 作ろうとしていますが拡張子の「.xls」がどうしても残ってしまいます。 例えば、「test.xls」が「test.xls070326.csv」のように。 これを「test070326.csv」とするにはどうしたらよいでしょう。 今のコードはつぎのようにしています。 Sub test1() Dim flname As Variant Dim wb As Workbook flname = ActiveWorkbook.Name + CStr(Format(Date, "yymmdd")) ActiveSheet.Copy ActiveSheet.SaveAs Filename:=flname, _ FileFormat:=xlCSV ActiveWindow.Close savechanges:=False ActiveWorkbook.Close End Sub これでもＣＳＶとしては使えるのですが、気持ちがすっきりしません。 どなたか正解をお願いします。

  • ＥＸＣＥＬのマクロで保存するときのメッセージ

    ＣＳＶファイルを上書き更新後、ファイルを閉じる作業をしたいのですが、ＥＸＣＥＬ２０００のマクロでその作業を行うと、次のメッセージがでて、次の手作業の要求がきます。 (1)ファイルの上書きするとき 　この場所にＡＡＡというファイルが既にあります。置き換えますか・・・はいのクリック (2)ファイルを閉じるとき 　ＡＡＡへのファイルの変更を保存しますか・・・いいえをクリック この(1)(2)の作業も、マクロに書きたいのですが、どうすればよいのでしょうか 現在のマクロは ActiveWorkbook.SaveAs Filename:= _ "C:\AAA.csv" _ , FileFormat:=xlCSV, CreateBackup:=False ActiveWindow.Close よろしくお願いします

  • マクロで、セル内の文字をファイル名にしたい

    Sub Auto_Close() ' ' CSV作成 Macro ' マクロ記録日 : 2006/7/13 ユーザー名 : 00849 ' ' Fname = Range("I15") ChDir "D:\ファイル\他仕事\リモートメンテナンス\RADIUS設定、エクセル検証" ActiveWorkbook.SaveAs Filename:= _ "D:\ファイル\他仕事\リモートメンテナンス\RADIUS設定、エクセル検証\Fname", _ FileFormat:=xlCSV, CreateBackup:=False ThisWorkbook.Close End Sub 　上記のように作ると、ファイル名が「Fname.csv」となってしまいます。 　これを、"I15"に打ち込んだ文字をファイル名で表示させるには、どうしたらよいでしょうか？ 　ほぼ初心者です。 　よろしくおねがいします。

  • エクセルＶＢＡでファイルをＣＳＶ保存の仕方

    エクセルのシートをＣＳＶファイルに保存するため以下のようなマクロを書きました。 Sub Macro1() Cells.Select Selection.Copy Workbooks.Add ActiveSheet.Paste Application.CutCopyMode = False ActiveWorkbook.SaveAs FileName:="C:\WINDOWS\デスクトップ\Book1.csv", FileFormat _ :=xlCSV, CreateBackup:=False ActiveWindow.Close ThisWorkbook.Activate End Sub 一応これで保存できるのですが、自動記録でやったためファイルの名前が出てしまいました。 この部分をわたし以外の誰でも任意の名前をつけ、任意のフォルダーに保存できるように書き換えたいのです。 どのように記述すれば良いかお教えください。お願いします。

  • エクセル　マクロの記述（フォルダーの移動、削除）

    現在開いているエクセルのファイルにマクロを記述し、 １　「処理済」というフォルダーに、開いているエクセルファイルを移動して、同じ名前でエクセルを保存する。 ２　「ＣＳＶ」というフォルダーに、開いているエクセルファイルをＣＳＶファイルに変換して名前を「処理.csv」とし保存する。 ３　現在開いているエクセルファイルは削除する。 以上の三つの処理をさせようと、以下のようにしましたが、１，２の処理は出来ましたが、３の開いているエクセルファイルが残ってしまいます。 以上三つの処理が一度に出来るマクロの記述を教えて下さい。 よろしくお願いします Sub マクロ() ActiveWorkbook.SaveAs Filename:="C:\処理済\" & ActiveWorkbook.Name ChDir"C:\CSV" ActiveWorkbook.SaveAs Filename:= "C:\ＣＳＶ\処理.csv" _ , FileFormat:=xlCSV, CreateBackup:=False Application.DisplayAlerts = False If Workbooks.Count = 1 Then Application.Quit Else ActiveWorkbook.Close End If Application.DisplayAlerts = False End Sub

  • エクセルファイル(book)のシートの内容をCSVファイルにおとしたい

    こんにちは。 ＶＢ初心者です。 実はＶＢではなく、Excel VBAで行なっているのですが。 ここに質問していいかもよく分かってないのですが。 プログラムの処理としては、あるBookのシートの内容を 別のＣＳＶファイルとして生成したいのです。マクロを組んだのですが、一つ問題があって困っています。 問題： 生成したＣＳＶファイルが一度Ｗｉｎｄｏｗ上に表示されて （それはいいのですが、あとで閉じますから） 以下の確認メッセージがでてしまいます。 「outFile.csvはExcel97のファイル形式では、ありません。変更を保存しますか？」 要はプログラムがここで、一旦ユーザアクションを要求してしまうのです。 アクションなしに普通に終了させたいのですが。 マクロではなくＶＢだったらこんなことはならないのでしょうか？ 初心なのでよく分かりません。 もしくはもっとほかの簡単なコードできるのでしょうか。 以下にコードを記述します。 Sub OutFile() Dim myWBpath As String myWBpath = ActiveWorkbook.Path Workbooks.Open FileName:=myWBpath & "\testData1.xls" Sheets("sheet1").Select ActiveWorkbook.SaveAs FileName:="C:\outFile.csv", _ FileFormat:=xlCSV, CreateBackup:=False ActiveWorkbook.Close End Sub

  • ファイル名に変数を割り当てたい

    EXCEL VBAで ファイル名に変数を割り当てて保存したいのですが、 うまく行きません。どこがおかしいのか教えてください。 C\サンプル\見込200704　を変数で割り当てて保存したい。 バージョン301 = "200704" 四月 = "C:\サンプル\見込" & "バージョン301" Range("A1").Select ActiveWorkbook.SaveAs Filename:=四月, _ FileFormat:=xlCSV, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False ActiveWorkbook.Close False

  • CSV保存マクロ　日付が逆になり困っています。

    マクロに詳しい方、お願いいたします。 エクセルのシートで2018／1／21とセルに記載したものを 下記マクロ（標準モジュールにコード記載）して、CSVで保存しています。 実行後CSVを開くと、21／1／2018になって逆になります。 調べてもわかりません。よろしくお願いします。 Sub Macro1() Application.DisplayAlerts = False main_f = ActiveWindow.Caption out_pass = ActiveWorkbook.Path & "\" Out_name = ActiveSheet.Name Sheets(Out_name).Select Sheets(Out_name).Copy ActiveWorkbook.SaveAs Filename:= _ out_pass & Out_name & ".csv", _ FileFormat:=xlCSV, CreateBackup:=False ActiveWindow.Close Application.DisplayAlerts = True End Sub

  • Ｅｘｃｅｌのマクロで、セル内の文字をファイル名にしたい

    ”プロト.xls”というＥｘｃｅｌファイルの中に、以下の動作をするマクロを作成したいのです。 (1)”C:\顧客\顧客納期連絡.xls”というＥｘｃｅｌファイルを開き、 　それを”C:\顧客\A.csv”という名前のｃｓｖファイルにする。 (2)”C:\顧客\A.csv”を”xxxxxxxxxxxxxxxxxx”（※注１）という名前にしてコピーする。 ※注１：”xxxxxxxxxxxxxxxxxx”の部分は、”プロト.xls”ファイルのＳｈｅｅｔ”マスター”のセルＤ９から取得させる。 そのセルは、　C:\顧客\ABCDEF0215.csv　と記述しています。 (3)コピー後、”C:\顧客\A.csv”を削除する。 ------------------------------------------------------------------- Sub 顧客納期連絡() ' ' 顧客納期連絡 Macro ' マクロ記録日 : 2010/2/15 ユーザー名 : xxxxxxx ' ' ChDir "C:\顧客" Workbooks.Open Filename:="C:\顧客\顧客納期連絡.xls" ActiveWorkbook.SaveAs Filename:="C:\顧客\A.csv", FileFormat:=xlCSV, _ CreateBackup:=False ActiveWorkbook.Save ActiveWindow.Close ActiveWorkbook.Save Dim fname1 As String Dim fname2 As String fname1 = "C:\顧客\A.csv" fname2 = Workbooks("プロト.xls"), Sheets("マスター"), Cells("D9") FileCopy fname1, fname2 Kill "C:\顧客\A.csv" End Sub ------------------------------------------------------------------- 上記のマクロを作成したのですが、ＦｉｌｅＣｏｐｙの行で、構文エラーか型に一致していない、 というエラーになりマクロ再生が停止します。 セルの内容をファイル名にしたいのですが、何か良い方法はございませんでしょうか？ 私は超初心者なので、何卒宜しくお願い致します。

  • エクセル　VBA　保存したCSVファイルについて

    いつもお世話になっています。 早速ですが　カンマ区切りのテキストファイルをカンマ区切りで読み込んだあと変更を加え　ActiveWorkbook.SaveAs Filename:="Book2.csv", FileFormat :=xlCSV, CreateBackup:=False で保存したものを　メモ帳などで開いた時に　不要な箇所にカンマの不要な箇所に沢山カンマが付いてしまいます。 Ｍ列まであるのでその分の空白もカンマ区切りで保存されてのだと思うのですが　これを、不要な部分の空白を除いた形で保存する方法は無いでしょうか？ どうぞよろしくお願いします

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する