ベストアンサー

自動的にｃｓｖでエクスポートしてくれるマクロ

2005/08/24 18:50

sheetがいくつかあり、指定したsheetを自動的にcsvで吐き出してくれるマクロを作成中です。 Sub Macro1407() Dim fText As String Open "C:\Documents and Settings\人事ファイ　ル.xls" For Input As #1 Open "C:\Documents and Settings\pgotouy\人事ファイル.csv" For Output As #2 Close #1 Close #2 End Sub これだとうまくいってくれませんでした。どなたかアドバイスお願いします。出来ればついでにxmlで吐き出すマクロについてもお願いします。

pa-man2go
お礼率10% (14/140)

オフィス系ソフト
回答数2
ありがとう数0

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

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

ベストアンサー

kigoshi
ベストアンサー率46% (120/260)

2005/08/24 20:01 回答No.2

csvで、はき出す例。たとえばこんな感じでしょうか。 Dim outPath As String outPath = "C:\Documents and Settings\pgotouy\" Dim sheetNum As Integer sheetNum = 1 Application.Dialogs(xlDialogOpen).Show Sheets(sheetNum).Activate ActiveSheet.SaveAs Filename:=outPath & ActiveSheet.Name & ".csv", FileFormat:=xlCSV, CreateBackup:=False ActiveWindow.Close うまくできますように

ログインすると、全ての回答が全文表示されます。

その他の回答 (1)

Wendy02
ベストアンサー率57% (3570/6232)

2005/08/24 19:19 回答No.1

こんばんは。＞Dim fText As String ＞Open "C:\Documents and Settings\人事ファイ　ル.xls" For Input As #1 ？ XLMファイルをテキスト・インポートしても、バイナリファイルですから、うまく行くとは思えません。記録マクロで、標準でブックを開いて、それから、シートを決めて、次に、そのシートをCSVフォーマットで保存するようにすれば、できあがるのではないでしょうか？同じようにして、XLMフォーマットで保存すれば出来上がります。

ログインすると、全ての回答が全文表示されます。