OS vista
エクセル 2007
既存のcsvファイルを編集したあとに簡単に
(確認メッセージを表示しないで、事前に、保存場所の設定をして、たとえば、ワンクリックで保存
できないものかと、思っています。なおその際既存のファイルはそのままで、別に出力と言うことです)
色々、ネット上検索しましたが、フリーソフト&マクロなど探すことはできませんでした。
なにしろ、大量のデーターを編集して保存しなくてはならず、途方にくれています。
どなたか、ご存知であれば、教えてほしいのですが。
よろしくおねがいします。
なお出力は、csvで出力したいです。

このQ&Aに関連する最新のQ&A

A 回答 (2件)

こんばんは。



とにかくcsvどうたらの警告は消すことができないので
VBAでcsv形式で出力するのが一番早いと思う。

スキルがいまいちわかんないので適当に答えちゃいますが
以下の流れでいいんじゃないかと思うよ。
自身のディレクトリを取得(thisworkbook.pathとかcurdirとか)
ファイル名を自動で付与(元のファイル名+現在時刻とか
csvで書き出す(open for output等)
    • good
    • 0
この回答へのお礼

やっぱり、警告消すのはむりですか。
これから、やってみます。
ありがとうございました。

お礼日時:2011/04/17 08:37

やりたいことを「新しいマクロの記録」でVBAにします。


それをメニューに追加します。

ここからが本番。

マクロの編集でVBAプログラムを書き換えます。
変更内容:開いているファイルの名前を取得して、書き込むファイル名を編集する。

やってみて分からない部分があったら、
MOUGあたりだと諸兄が教えてくれたりします。
    • good
    • 0
この回答へのお礼

マクロの記録は、やったことありますが、
ループなど、難しくて、断念してました。
勉強してみます。
ありがとうございました。

お礼日時:2011/04/17 08:40

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q大量のCSVファイルをExcel形式に変換する

お世話になります。
大量のCSV(.csvファイルをExcel(.xls)ファイルに変換したい
と考えております。
リネームソフトを使って、(.csv)⇒(.xls)の一括変換を
したところ、拡張子は確かに.xlsに変換されたのですが、
中身はCSVのままとなっておりました。
(↑ファイル名とシート名が同期を取っているので)

このCSVを確実にエクセル形式へと変換したいのですが、
どなた様かいいお考えをお持ちでしたら教えてください。
ググってみたところ、そういったアドインがあるのですが、
できれば費用をかけずに行いたいです…。

Aベストアンサー

こんにちは。

すでに、マクロが1つ出ているようですが、私も作ってみました。

これは、ファイルをマルチセレクトして、そのファイル群を、Excelのマクロにより、一気に、CSV から XLS(Excel標準フォーマット)変換するマクロです。出来上がったら、Explorer 等で、確認してみてください。

>アドインがあるのですが、
私の個人的な意見ですが、この程度のものは、アドイン化すべきものではありませんから、よほど付加価値をつけないと公開用のアドインにはなりませんが、一般的にみて、アマチュアの作ったアドインは、押しなべて、あまり出来の良いものが少ないように思います。ですから、なるべく、一般のマクロで解決するように望みます。


'---------------------------------------------------

'<標準モジュール>
Sub CSV2XLS()
  'CSV を XLS に変換するマクロ
  Dim myArray() As String
  Dim FileName As Variant
  Dim fn As Variant
  Dim xlFileName As String
  Dim xlFileBaseName As String
  Dim TextLine As String
  Dim FileNo As Integer
  Dim i As Long
  Dim k As Long
  '基本となるフォルダ
  'BASE_DIR=""なら、マクロのあるブックと同じ場所のフォルダ
  Const BASE_DIR As String = ""
  If BASE_DIR <> "" Then
   ChDir BASE_DIR
   Else
   ChDir ThisWorkbook.Path
  End If
  FileName = Application.GetOpenFilename("CSV ファイル(*.csv),*.csv", MultiSelect:=True)
  If VarType(FileName) = vbBoolean Then
   Exit Sub
  End If
  Application.ScreenUpdating = False
  For Each fn In FileName
   On Error GoTo NextStatus
   With Workbooks.Open(fn)
     xlFileName = Mid$(fn, 1, InStrRev(fn, ".") - 1) & ".xls"
     Do
      k = k + 1 '同名の時枝番をつける
      If k > 3 Then Exit Do
      If Dir(xlFileName) = "" Then
        .SaveAs xlFileName
        xlFileBaseName = Mid$(xlFileName, InStrRev(xlFileName, "\") + 1)
        Workbooks(xlFileBaseName).Close False
        k = 0
        Exit Do
        Else
        xlFileName = Mid$(fn, 1, InStrRev(fn, ".") - 1) & "_" & CStr(k) & ".xls"
      End If
     Loop
   End With
NextStatus:
  Next fn
  Application.ScreenUpdating = True
  MsgBox "終了しました。",64
End Sub

'---------------------------------------------------

こんにちは。

すでに、マクロが1つ出ているようですが、私も作ってみました。

これは、ファイルをマルチセレクトして、そのファイル群を、Excelのマクロにより、一気に、CSV から XLS(Excel標準フォーマット)変換するマクロです。出来上がったら、Explorer 等で、確認してみてください。

>アドインがあるのですが、
私の個人的な意見ですが、この程度のものは、アドイン化すべきものではありませんから、よほど付加価値をつけないと公開用のアドインにはなりませんが、一般的にみて、アマチュアの...続きを読む

Qエクセル2007で保存するときのファイルの種類

エクセル2003で作った資料をエクセル2007で開いて中身を少し訂正して別の名前で保存するときファイルの種類をどれにしたらいいのでしょうか?

Aベストアンサー

2003で再び開く必要があるなら、「Excel97-2003ブック」で、2003で開くことがないなら
「Excelブック」で保存すればよいでしょう。ただし、2007独自の機能を使って編集し、97-
2003ブックで保存した場合、その部分が2003で開いたときに再現されない可能性があります。

QエクセルデータからCSVファイルへの変換について

現在エクセルファイルにあるデータをCSVファイルへ変換する作業(エクセルでデータを作成して、保存時にCSVファイルを選択)をしているのですが、以下の例の場合うまく変換ができません・・・。
基本的な質問かもしれませんがどなたかご存知でしたら教えていただけると助かります。
よろしくお願いします。

【例】
        (エクセル) ⇒  (CSV)

うまくいく   12345     12345

うまくいかない 01234     1234


上記のようにエクセル上は文字列で管理されている
ケースだとCSVファイルに変換した時数列に変換
され、上記例のうまくいかないケースのように
頭に0がある場合CSVだと0が消えてしまいます。

よろしくお願いします。

Aベストアンサー

> CSVファイルに変換した時数列に変換

ちがいます。
いったんCSVで保存したものをエクセルで開いたときにそうなるのです。
CSVをエクセルでそのまま開かず、メニューの「データ」、「外部データの取り込み」、「すべてのファイル」、で取り込み、書式で文字列を選べばOKです。
あるいはCSVを拡張子を.TXTにしてテキストで取り込んでもOK

Qエクセルのファイルがダブルクリックで開かなくなりました。

エクセルのファイルが全てダブルクリックで開かなくなりました。
エクセルを普通に立ち上げてファイルを開くと開けます。
関連付けをみてもエクセルに設定されており、一度エクセルビュワーに関連付けを変更すると、エクセルビュワーでは普通にダブルクリックで開きました。
しかし、関連付けをエクセルにまた戻すと、同じ症状が出ます。
ワードやその他は普通にダブルクリックで開きます。
一度オフィスを全てアンインストール&インストールし直してみましたが症状は変わりませんでした。
システムの復元は復元ポイントが設定されていない為に実行できませんでした。
他に何か良い解決方法があればよろしくお願いします。

Aベストアンサー

http://pcmemorandum.blog93.fc2.com/blog-entry-60.html

確認してみてね☆

QCSVファイルをEXCELに変換の自動化作業

CSVファイルをEXCELに変換の自動化作業
{CSVファイルをEXCELに変換するため、
excel  ツールバーよりデータ(D)→外部データの取り込み(D)→テキストファイルのインポート→ファイルの種類変更→全てのファイル→○○.csvのファイル指定→“,”の区切り選択、、ウィザードに従って変更し次へで進む→A1が指定されるのでそのまま完了→CSVがEXCELファイルに変換された。
参照したabc1.csvの名前に対して新しいabc1.xlsとなずけて登録する。これらの作業をMYドキュメントのhenkan ホルダーに入っているCSVファイルに同様に作業して同じくhenkan ホルダーに入れる。}
上記の{ }内の作業を何か,excelのVBAのマクロのようなもので実行することはできませんか。
やり方を教えてください。

Aベストアンサー

もともと、CSVとはカンマ区切りのはずですから、そうではないということなら、このコードは、違っています。こういう質問系掲示板は、質問者が分らない部分をお助けするような形で出来上がるものだと思いますので、回答者の回答を最初から否定するような発言は控えていだきたいと思いました。なお、フォルダーの中を一気に変換してしまうようなコードは、必ず変換後の様子を確認してからでなくてはなりませんので、それを確認していただくつもりでした。

私自身は、ここのカテゴリで、私は、一ゲンではありませんので、後々のためにコードを掲示しておきます。以下は、私が考えていたコードであって、その処理後の状態を保証するものではありません。

'<標準モジュール推奨>
Sub DirectryCSV2XLS()
  Dim myCSVFnames() As String
  Dim myCSVFname As String
  Dim xlFileName As String
  Dim i As Long
  Dim j As Long
  Dim n As Variant
  Dim msg As String
'=====================================
  '以下 フォルダー要設定
  Const MY_FOLDER As String = ""C:\Documents and Settings\<User>\My Documents\"
'=====================================
  If Left$(MY_FOLDER, 1) <> "\" Then MsgBox "フォルダーの設定の最後は、「\」が必要です。": Exit Sub
  If Dir(MY_FOLDER, vbDirectory) = "" Then _
   MsgBox "そのフォルダーは存在しません。", vbCritical: Exit Sub
 
  myCSVFname = Dir(MY_FOLDER & "*.csv")
  Do While myCSVFname <> ""
   ReDim Preserve myCSVFnames(i)
   myCSVFnames(i) = myCSVFname
   i = i + 1
   myCSVFname = Dir()
  Loop
  If i = 0 Then MsgBox MY_FOLDER & " には、CSVファイルが存在しません。", vbCritical: Exit Sub
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  For Each n In myCSVFnames
   xlFileName = Mid$(n, 1, InStrRev(n, ".csv")) & ".xls"
   If Dir(MY_FOLDER & "\" & xlFileName) = "" Then
     With Workbooks.Open(MY_FOLDER & "\" & n, Format:=2)
      .SaveAs MY_FOLDER & xlFileName
      Workbooks(xlFileName).Close False
      j = j + 1
     End With
   End If
  Next n
  Application.DisplayAlerts = True
  Application.ScreenUpdating = True
  If i <> j Then msg = "既に" & CStr(i - j) & "個のCSV ファイルは、XLSに変換されています。"
  MsgBox i & "個のCSVの内、" & j & "個のファイルをXLSに変換しました。" & vbCrLf & msg
End Sub

もともと、CSVとはカンマ区切りのはずですから、そうではないということなら、このコードは、違っています。こういう質問系掲示板は、質問者が分らない部分をお助けするような形で出来上がるものだと思いますので、回答者の回答を最初から否定するような発言は控えていだきたいと思いました。なお、フォルダーの中を一気に変換してしまうようなコードは、必ず変換後の様子を確認してからでなくてはなりませんので、それを確認していただくつもりでした。

私自身は、ここのカテゴリで、私は、一ゲンではありませ...続きを読む

QcsvファイルをダウンロードしようとするとExcelオブジェクトが開いてしまう。

あるサイトからCSVファイルをダウンロードすると、ダウンロードのダイアログボックスは表示されず、Excelのオブジェクトが起動し、ブラウザ上にデータが表示されてしまいます。
他の人のパソコンで試してもらいましたが、ダウンロードはできました。
従ってサイトに問題があるのではなく、自分の環境に問題があるものと推測されるのですが、どのように解決すれば良いか悩んでいます。
どなたか同じような症状で、解決された方がいらっしゃったらご教授願いたいです。

Aベストアンサー

Microsoft ExcelがインストールされているPC+[フォルダオプション]の[ファイルタイプ](または[ファイルの種類])タブの".csv"ファイルの設定の[open]時の動作が『Excelで開く』ように設定され、[open]が太字表示(=規定の動作)に設定されている環境で、ブラウザ上の".csv"ファイルのリンクを『左』クリックしてしまうと、自動的にファイルを[開く]になってしまい、ブラウザ上で開かれてしまいます。(同様に、Microsoft Word+".doc"ファイルの設定、Adobe Reader+".pdf"ファイルの設定等でも、同じことが起きます。)

[フォルダオプション]の『既定の動作』を"open"以外の動作に変更すれば、問題は解決しますが、それでは、『エクスプローラ』(←IEではない方)上でファイルを操作する際に不便になります。(『既定の動作』が[open]になっていれば、".csv"ファイルをダブルクリックするだけでExcelで開けます。)

ダウンロード時だけの問題でしょうから、".csv"ファイルのリンクを『右』クリックし、[対象をファイルに保存]を選択することで、ブラウザで開かずにダウンロードできます。

『Microsoft サポートオンライン:ファイルをダウンロードする際に保存の確認メッセージが表示されない場合の対処方法 (Windows XP の場合)』
http://support.microsoft.com/kb/880999/ja#4

『同上:ファイルをダウンロードする際に保存の確認メッセージが表示されない場合の対処方法 (Windows 98、Windows Me および Windows 2000 の場合)』
http://support.microsoft.com/kb/880112/ja

参考URL:http://support.microsoft.com/kb/880999/ja#4,http://support.microsoft.com/kb/880112/ja

Microsoft ExcelがインストールされているPC+[フォルダオプション]の[ファイルタイプ](または[ファイルの種類])タブの".csv"ファイルの設定の[open]時の動作が『Excelで開く』ように設定され、[open]が太字表示(=規定の動作)に設定されている環境で、ブラウザ上の".csv"ファイルのリンクを『左』クリックしてしまうと、自動的にファイルを[開く]になってしまい、ブラウザ上で開かれてしまいます。(同様に、Microsoft Word+".doc"ファイルの設定、Adobe Reader+".pdf"ファイルの設定等でも、同じことが起...続きを読む

QCSVをExcelに変換したい

お世話になります。

CSVファイルをExcelファイルに変換する場合、CSVファイルをExcelで開いて拡張子を「xls」もしくは「xlsx」を指定して保存すればよいかと思いますが、PCにExcelがインストールされてない環境の場合、Excelに変換することは不可能でしょうか。

今回、Accessにてツールを作成し、CSV(カンマ区切り)のデータを読み込もうとしておりますが、そのデータの中には単語の中にカンマが含まれているものがある為、普通にCSVをインポートしようとすると、ズレてしまいます。

なので、インポートする前準備としていったんExcelに変換したいと考えているのですが。。そのPCにExcelがインストールされてないと、やはり変換することは出来ないでしょうか。

もしくは、カンマ区切りのCSVファイルをタブ区切りに変換したりすることは出来ますでしょうか。

ご教授の程、宜しくお願い致します。

Aベストアンサー

>Accessにてツールを作成し、CSV(カンマ区切り)のデータを読み込もうとしておりますが、そのデータの中には単語の中にカンマが含まれているものがある為、普通にCSVをインポートしようとすると、ズレてしまいます。

毎回同じCSVのフォーマットだったら
(項目数やデータ型など)
一度インポートウィザードで進めて行って
設定ボタンから定義を保存し
次回からはその定義名を使用してインポートしては?
VBAならDocmd.transferText のヘルプにあるSpecificationNameに定義名を入れます。
・・・じゃダメかいな?

>インポートする前準備としていったんExcelに変換したい
CSVファイルを直接開くとExcelのお節介機能で
電話番号などの前ゼロがなくなったり、ハイフン付きのデータが日付と解釈されたり・・・
ということががあるので、拡張子CSVをTxtに変えてから
Excelで開こうとするとウィザードが立ち上がって・・・と出来ますが
結局のところ二度手間です。

ご参考まで。

Qファイルをデイスクトップに保存しています。マイドキュメントに保存するの

ファイルをデイスクトップに保存しています。マイドキュメントに保存するのとどのような違いかありますか。パソコンの電源をいれたらしぱらくすると保存のファイルか゜ただちに表示されるので便利ですか何か不都合なことがありますか。初歩的な疑問て゜すがよろしくお願いします。

Aベストアンサー

通常、デスクトップもマイドキュメントも、保存場所はCドライブです。

私は、マイドキュメントを、Dドライブに移動させ、Dドライブの必要な
ファイルのショートカットを、デスクトップに配置しています。

上記の場合、保存場所の違いにより、ファイルの安全性に違いがありますが、
パソコンが快調であれば、デスクトップの利用は不都合でないと思います。

パソコンから、不定期に、普段と異なる異音が出るようであれば、
デスクトップのファイル保存は、不都合(危険信号)です。

QCSV形式に変換

プログラミング(C言語)で、ファイルの内容をCSV形式に変換し、指定した出力ファイルに出力するプログラムを作成せよ。という課題がありましたが、
ファイルの内容をCSV形式に変換
がわかりません。どのようなプログラムをかいたらよいのでしょうか?

Aベストアンサー

#5です。
よく見たらフィールド内での入れ替えが居るようなので、
#5で書いたやり方ではできませんね。。。
#参考だしいいのかな。。。

読み込みを一行ずつにして、
中を入れ替えて・・・
という作業が必要になります。

QIE7の右クリックでの画像保存について

少し長くなるので敢えて簡潔に質問するのでお許しください

IE7で右クリックして画像を保存するときデフォルトでは
「ユーザ/ピクチャ/」
の場所になっていると思います。その中に例えば「グラビア」なり「地図」なりのフォルダを作成してるのですが、このたびVistaの再インストが完了して以前のようにその作成したカテゴリのフォルダに画像を複数保存しようとしたら、二枚目以降また「ピクチャ/」に戻ってしまうのです。
再インスト前まではIEを閉じるまでは前回保存したフォルダを覚えていたのですが、この度は必ずピクチャ直下に戻ってしまいます。
これの解決法を教えてくださいm(_ _)m

環境は
・Vista Home Premium SP1適用
・C2D E6600、HDD440GB、RAM3GB、Windows Updateが全て適用
・レジストリなどシステムに改造はなし
・VistaはデフォルトどおりCドライブの直下にインストール

Aベストアンサー

私の環境(Vista IE7)ではもちろん、前回のフォルダを記憶していて開きます。

> このたびVistaの再インストが完了して...

下記のマイクロソフトの言う「Windows Vista を再インストールするには」と同じ作業を行なったのですか?
つまり、クリーンインストールですが...
http://windowshelp.microsoft.com/Windows/ja-JP/help/e77344fa-e978-464c-953e-eba44f0522671041.mspx#section_3

いったん「フォルダをリセット」を試してはどうでしょうか。


人気Q&Aランキング

おすすめ情報