こんちには。VBA初心者です。
Excelのワークシートの値をUTF-8形式のテキスト(.csvで保存します)形式でエクスポートするため、以下のようなコードを書いてみたのですが、「.Type = adTypeText」のところで、「実行時エラー 3001:引数が間違った型、許容範囲外、または競合しています。」のエラーになってしまいます。
ADO関係はほとんど知識がなく、「http://msdn.microsoft.com/ja-jp/library/cc408239 …」こういうところで調べても、よく理解できないことが多いので困っています。
どなたか助言をいただけないでしょうか。
(後学のために多少の解説もいただけると助かります)
Sub exportToCsv()
Dim myBook As String
Dim mySheet As String
Dim myLastRow As Long
Dim i As Integer
myBook = "sample.xlsm"
mySheet = "sample"
Workbooks(myBook).Worksheets(mySheet).Activate
myLastRow = Cells.SpecialCells(xlLastCell).Row
Set myStream = CreateObject("ADODB.Stream")
With myStream
.Type = adTypeText
.Charset = "UTF-8"
.Open
.WriteText
End With
For i = 1 To myLastRow
myStream.WriteText Cells(i, 1) & vbLf
Next i
myStream.SaveToFile "D:\sample.csv"
myStream.Close
Set myStream = Nothing
End Sub
No.2ベストアンサー
- 回答日時:
丁寧にやりましょう。
Dim myBook As String
Dim mySheet As String
Dim myLastRow As Long
Dim i As Integer
Dim シート As Worksheet
Dim 文字列 As String
Dim MyStream
myBook = "sample.xlsm"
mySheet = "sample"
'★デフォルトオブジェクトは使用しない方がよい
'Workbooks(myBook).Worksheets(mySheet).Activate
Set シート = Workbooks(myBook).Worksheets(mySheet)
myLastRow = シート.Cells.SpecialCells(xlLastCell).Row
Set MyStream = CreateObject("ADODB.Stream")
With MyStream
.Type = 2
.Charset = "UTF-8"
.Open
'.WriteText ★パラメータが無いのでエラーになる
End With
For i = 1 To myLastRow
'★改行だけでなく、復帰+改行にする。Unix用なら改行のみ
字列 = シート.Cells(i, 1)
文字列 = Replace(文字列, vbLf, vbNewLine)
MyStream.WriteText 文字列 & vbNewLine
Next i
MyStream.SaveToFile "D:\sample.csv", 2 '★上書きOK 規定はNG
MyStream.Close
Set MyStream = Nothing
お礼が遅くなり大変申し訳ありません。
かゆい所に手が届く丁寧なご指導、どうもありがとうございました。
>★パラメータが無いのでエラーになる
>★デフォルトオブジェクトは使用しない方がよい
こういうところは、今回に限らず今後コードを書いていくうえでも役に立つと思います。
意外と入門書にこういうことが書かれていないので助かります。
>文字列 = シート.Cells(i, 1)
>文字列 = Replace(文字列, vbLf, vbNewLine)
実は、UTF-8のCSVとして出力するのでセル内のカンマをHTMLのコードに変改したいのだが、出力元のシートのデータには手を加えずにやるにはどうすればいんだろうと悩んでました。
こういう風に、セル内のデータを一旦変数に入れてからReplaceすればいいですね。
わかってしまえば、今までこれをこれを思い付かなかったのが不思議なくらいですが、初心者ってこういうへんなところでつっかえるんです。またひとつ勉強になりました。
>★上書きOK 規定はNG
これも知らなかったので、既に出力先にファイルがあるかどうか調べるエラー処理を入れてたんですが、上書きOKならそれも不要ですね。参考になります。
No.1
- 回答日時:
もしかして ADOに対しての参照設定をなされていないのではありませんか?
参照設定されていないと adTypeTextのような列挙型の定数は定義されていませんので 0になってしまいます
ADODB.Stream.Type は 1 or 2 しか受け付けないので 0だとエラーになると思います
このモジュールの冒頭か標準モジュールの冒頭に
Const adTypeText = 2
を追加してみましょう
お礼が遅くなり大変申し訳ありません。
以前ADODB.Streamを使用した時は、参照設定しなくても実行時に自動で参照にチェックが入ったのですが、今回は数値で「2」としないと動作しなかったようです。なんでこういう差が出るのか、初心者には理解不能です。
とにかく教えていただいた方法で意図したとおりに動作しました。
ありがとうございました。助かりました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのVBAについて とあるサイトのコードを参考に、CSVの文字化けを直すVBAを作成しているの 7 2022/11/04 14:15
- Visual Basic(VBA) ACCESS DAO で不要なテーブルのフィールド(列)の削除 4 2022/06/23 12:13
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Visual Basic(VBA) VBA 請求書自動作成 3 2022/04/24 01:58
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- Visual Basic(VBA) vba 重複データ合算 5 2023/07/05 18:55
- Visual Basic(VBA) VBAでファイルを開くプログラムがエラーです 2 2023/02/21 16:56
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
Excel VBAでほかのアプリケーションで使用中(ロック)のファイルを上書き保存したい
その他(プログラミング・Web制作)
-
実行時エラー3001「引数が間違った型、許容範囲外、または競合しています。」
Visual Basic(VBA)
-
エクセルでエラーが出て困っています。
Excel(エクセル)
-
-
4
エクセルのVBAについて とあるサイトのコードを参考に、CSVの文字化けを直すVBAを作成しているの
Excel(エクセル)
-
5
データベース操作時エラーについて
Visual Basic(VBA)
-
6
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
7
コンパイルエラー 変数が定義されていません
Visual Basic(VBA)
-
8
【Excel VBA】CSV取込時、数字の先頭の0を消えないようにするには?
Excel(エクセル)
-
9
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
10
Excel VBS、ADODB.Streamで改行
Visual Basic(VBA)
-
11
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
12
CSVファイルの指定列だけを読み込んでEXCELに表示したい
Excel(エクセル)
-
13
csvファイル 項目数取得
Visual Basic(VBA)
-
14
Excelのセルにユーザー名を表示する方法
Excel(エクセル)
-
15
テキストファイルから改行コードを削除して読込む方法
Visual Basic(VBA)
-
16
ADODB.Streamで開いたファイルに追記する
その他(プログラミング・Web制作)
-
17
複数の条件に合う行番号を取得するには
その他(Microsoft Office)
-
18
【VBA】テキストファイルから特定の文字列を抽出して、エクセルに出力する
Excel(エクセル)
-
19
VBAでの Replace関数で、ワイルドカードは使えないのでしょうか?
Visual Basic(VBA)
-
20
【VBA】ファイルパスに半角スペースが入ると、VBAが動かない
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
実行時エラー 438になった時の...
-
エクセルエラー13型が一致しま...
-
日本語環境下で作成したマクロ...
-
なぜこんな初歩的なVBAのIf文で...
-
VBS実行時エラー オブジェクト...
-
【Excel VBA】マクロをボタンに...
-
Application.ActiveInspectorで...
-
ExcelVBA Range クラスの Page...
-
職場から目的地までの距離集計
-
プロシージャ名の取得
-
実行時エラー3001「引数が間違...
-
なぜエラーになるのでしょうか...
-
Access2003、2010間の非互換?
-
エクセルVBA、フリーフォームで...
-
ExcelのVBAのAutoFillの使い方...
-
Excel2019 ワークシートのコピ...
-
VBA 別シートのセルから、文字...
-
VBAのChrome操作のエラーについ...
-
【エクセル】ハイパーリンク先...
-
VBSで変数の宣言はできないので...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
実行時エラー 438になった時の...
-
エクセルエラー13型が一致しま...
-
【Excel VBA】マクロをボタンに...
-
VBAでのエラー
-
マクロについて教えてください...
-
なぜこんな初歩的なVBAのIf文で...
-
VBAがブレークモードになっ...
-
実行時エラー3001「引数が間違...
-
ExcelVBA Range クラスの Page...
-
VBS実行時エラー オブジェクト...
-
EXCEL VBAマクロ中断でデバッグ...
-
Outlook.ApplicationをCreateOb...
-
VBSで変数の宣言はできないので...
-
VBAのコードがエラーになっ...
-
実行時エラー -'-2147417848
-
ADODB.Streamを使用してUTF-8を...
-
EXCEL/VBAで、自分のPCだけエラ...
-
OLEDB.NETで接続できない
-
プロシージャ名の取得
-
VB6+SQL サーバー 2000 で 実行...
おすすめ情報