• ベストアンサー

（Excel vba）ExcelシートをCSV保存する時、通貨記号を\にする方法

セルの書式設定で通貨（記号は￥）を設定しているセルを含むexcelのシートをCSV形式に保存しようとしています。手作業でメニューの「ファイル」－「名前を付けて保存」をクリックし、ファイル形式をCSVにして保存した場合は通貨記号￥がついた金額が入っていて問題ありません。 次のようにvbaのSaveAsメソッドを使用した場合、通貨記号$のついた金額になってしまいます。 ActiveWorkbook.SaveAs Filename:=FCsvName, FileFormat:=xlCSV vbaで通貨記号を\にする方法を教えてください。環境はExcel2000・Windows98SEです。

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

  • ベストアンサー
  • taspon
  • ベストアンサー率69% (9/13)
回答No.2

EXCEL2002の場合で申し訳ありませんが、 セルの書式設定での通貨の記号に、 ”\ ”が設定してあると、やはり $ になってしまいますが、 ”\ 日本語”が設定してあれば、SaveAsメソッドでもきちんと\が入ります。 （通貨記号が \ であるという前提なら役に立ちませんが）

wata-yotti
質問者

お礼

ありがとうございました。教えていただいた方法で解決しました。"\ 日本語"があるなんて知りませんでした。本当に助かりました。お礼が遅くなり申し訳ありませんでした。

その他の回答 (1)

  • eipu
  • ベストアンサー率39% (25/64)
回答No.1

VBAのバグですかね？ 面白い挙動ですね。初めて知りました。 そのまま保存するのでは、どうも無理っぽいので シーケンシャルファイルで書き出した方が 良いかもしれません。 下みたいな感じで。 Sub csvmake() fname = Application.GetSaveAsFilename("a.csv") Open fname For Output As #1 Print #1, "\100,\200,\300" Close #1 End Sub

wata-yotti
質問者

お礼

ご回答ありがとうございました。＃２の方の方法で解決しました。

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

関連するQ&A

  • VBAでのＣＳＶ保存

    VBAでExcelのデータを保存したく、 ActiveSheet.SaveAs _ Filename:=xxxxx, _ FileFormat:=xlCSV といった感じにしています。 ほぼこの方法で問題ないのですが、なぜか変形してしまう データがあります。 文字列として2004/6/18といった形で入力しているデータが 6/18/2004のように変化してしまいます。 FileFormatを指定しなければ、2004/6/18のままですが、 それではCSVファイルになりません。 どうしたらいいのでしょうか？

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

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

  • （VBA）書式が変更されてしまいます

    ↓SaveAsで保存すると書式が変更されてしまいます。 ActiveWorkbook.SaveAs FileFormat:=xlCSV, _ CreateBackup:=False ActiveWorkbook.Close False ネットで↓の回避策を見つけたのですがうまくいきません。 **************************************************************** Sub CSV_Save() 'Sheet1をCSV形式で保存します。 With ActiveWorkbook.Sheets(1) 'A1：A10まで日付あるいは通貨設定のデータが入っているとします。 For Each rng In Range("A1:A10") 'テキスト文字列に変更します。 rng.Value = "'" & rng.Text Next rng End With ActiveWorkbook.SaveAs FileName:="C:\test.csv", FileFormat:=xlCSV End Sub **************************************************************** ご指導お願いします。

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

    エクセルのシートをＣＳＶファイルに保存するため以下のようなマクロを書きました。 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 一応これで保存できるのですが、自動記録でやったためファイルの名前が出てしまいました。 この部分をわたし以外の誰でも任意の名前をつけ、任意のフォルダーに保存できるように書き換えたいのです。 どのように記述すれば良いかお教えください。お願いします。

  • EXCEL確認メッセージを出さずに保存したい

    恐れ入りますが、ご教示お願い致します。 質問(1) EXCELファイルを (1)特定の名前で (2)CSVファイルにして 保存をしたいと考えています。次のマクロを書いたところ、”CSVへの変更を保存しますか？”確認メッセージがでます。 確認メッセージを出さずに、保存するためには、どのように記述したらよいでしょうか？ With ActiveWorkbook .SaveAs Filename:=Mypath & "\" & Mybook & MYsireal, FileFormat:=xlCSV .Close End With (2)改行するためにはどうしたらよいでしょうか？ .SaveAs Filename:=Mypath & "\" & Mybook & MYsireal, FileFormat:=xlCSV を、次のように改行させたいのです。 .SaveAs Filename:=Mypath & "\" & Mybook & MYsireal, 　　　　 FileFormat:=xlCSV _　を使うということを、なんとなく覚えておりますが、うまくいきません。注意点等をご教示頂ければと思います。 以上　よろしくお願い致します。

  • EXCEL→CSV保存時のダブルクォーテーションについて

    下記のようにEXCELマクロにてEXCELファイルをCSVファイルに保存しようとしています。 NewBook.SaveAs Filename:="test.csv", FileFormat:=xlCSV, CreateBackup:=False このとき、セル値にダブルクォーテーションが含まれていると、出力CSVファイルの値がダブルクォーテーションで囲まれてしまいます。 ●ダブルクォーテーションが含まれていない場合 セル値→A列：ABC 　　　　B列：DEF CSVファイル→ABC,DEF ●ダブルクォーテーションが含まれている場合 セル値→A列：A"C 　　　　B列：DEF CSVファイル→"A"C",DEF 後者の場合もダブルクォーテーションで囲まれないようにするにはどうすればよいでしょうか。

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

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

  • エクセルファイル(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

  • ＣＳＶファイルの保存方法をお教えください

    Microsoft Office Personal 2010を使っています。 HogeHoge.csv をエクセルで開きます、この時シートの表示はHogeHoge.csv のままです 平均計算などの処理後このファイルを閉じようとすると下記のようなメッセージが出ます がこの時[はい]をクリックして閉じると正常に保存されるのですが マクロで保存をしようとするとなかなか上手くいきません。 Ａ列の日付けが 2014/1/15 10:30 が 1/15/2014 10:30 となってしまいます。 HogeHoge.csvには、ＣＳＶ(カンマ区切り)と互換性のない機能が含まれている可能性があります。この形式でブックを保存しますか？ ・このまま保存するには、[はい]をクリックします。 ・機能を保存するには、[いいえ]をクリックしてから、最新のExcelの形式で保存します。 とでます 　　下記のようなマクロですがどのようにすれば良いのか分かりません 　　どうぞよろしくお願いいたします。 Sub 保存終了() ChDir "D:\DATA\BackT" ActiveSheet.SaveAs Filename:="D:\DATA\BackT\HogeHoge.csv", FileFormat _ :=xlCSV, CreateBackup:=False If Workbooks.Count = 1 Then Application.DisplayAlerts = False Application.Quit Else: ActiveWorkbook.Close False End If End Sub

  • エクセル：シートを保存するマクロ

    あるエクセルファイルFile.xls内に、４つのシートSheet1,Sheet2,Sheet3,Sheet4があるとして、 ４つのシートを個別にcsvファイルとして保存するようなマクロを作りたいです。 ▼ソースです 　（ここまでのコードで、Pathに保存先のディレクトリ名を取得する部分があるとお考えください）　 Filename = "Sheet1" '保存するシート名は、Sheet1～4 GoSub Save1 Filename = "Sheet2" GoSub Save1 Filename = "Sheet3" GoSub Save1 Filename = "Sheet4" GoSub Save1 '保存完了後は、File.xls内Sheet1のCells(4, 1)にカーソルを配置。 Sheets("Sheet1").Select Cells(4, 1).Select Exit Sub Save1: Sheets(Filename).Select fname = Path & "\" & Filename & ".csv" ActiveWorkbook.SaveAs Filename:=fname, FileFormat:=xlCSV, CreateBackup:=False Return End Sub 以上のソースで実行すると、 指定したディレクトリにsheet1.csv、sheet2.csv、sheet3.csv、sheet4.csvの４ファイルができます。 ここまでは問題ないのですが、 マクロを実行後、Sheet4.csv(最後に保存したファイル)が開かれた状態になってしまいます。 しかも、ファイル名はSheet4.csvなのに、シートSheet1～4を持っている状態です。 普通にSheet4.csvファイルを開くと、シートはSheet4しかありません。 状態が伝わるでしょうか？ File.xlsのマクロを実行しているので、実行完了後もFile.xlsを開いておきたいのですが、 どのような記述を加えればよいでしょうか？ マクロ(VBA)は使い始めたばかりなので説明されても理解できないかもしれませんが、 できればよろしくお願いいたします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する