- ベストアンサー
【VAB】 エクセルファイルからCSVファイルをインポートするには
fumufumu_2006の回答
>今の状態で2行目から貼り付けを実行させたいのですが可能ですか？ データ貼り付けの部分の ws.Cells(r + 1, c + 1) = d(Val(cols(c)) - 1) を ws.Cells(r + 2, c + 1) = d(Val(cols(c)) - 1) に変更してください。 もしも「CSVファイルの2行目から貼り付け・・・」と言う意味なら For r = 0 To UBound(csv) を For r = 1 To UBound(csv) に、 ws.Cells(r + 1, c + 1) = d(Val(cols(c)) - 1) を ws.Cells(r, c + 1) = d(Val(cols(c)) - 1) に変更してください。
関連するQ&A
- CSVファイルをエクセルファイルにインポートさせるには？
おせわになります CSVファイルをエクセルファイルにインポートさせたいのですが 方法は ユーザーフォームをにテキストボックスと参照ボタン、実行ボタンを作成し 参照ぼたんでCSVファイルを選ぶ テキストボックスには参照先の住所が記載され 実行ボタンでsheet1にB2から貼り付けさせたいのですが可能ですか？ 又、CSVの情報が不要な列もあります 必要な列のみ落とし込みをしたいです 当方初心者でVBAコードがあれば幸いです。 わかる方よろしくおねがいします
- 締切済み
- オフィス系ソフト
- 【AccessVBA】ファルダごとインポート
お世話になります 実行可能かわからない範囲でお聞きしています。 ■概要 フォルダごとCSVをインポートする ■詳細 フォーム上でテキストボックス、参照ボタン、実行ボタン、を設置 参照ボタンでダイアログボックスを表示しファルダを選ぶ 選ぶとテキストボックスにあて先が記載され実行ボタンでファイル内にあるCSVファイルを一括してAccessテーブルにインポートさせたいのですが可能ですか？ ■環境 Access2003 CSV カンマ区切り CSVの数はまちまちです1個のときもあります CSVの列等は全部統一されています わかる方ご教授よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- CSVファイルをエクセルへインポート
お世話になります ユーザーホームにテキストボックス、参照ボタン、実行ボタンを配置。 参照ボタンをクリックするとダイアログボックスが開きCSVを選ぶ。 選んだ場所がテキストボックスに記載され実行ボタンを押すと エクセルにインポートする。 張り付き内容は下記の通りです XLS側は CSV→XLS側 B列→XLSのC列へ D列→XLSのG列へ F列→XLSのI列へ 分かる方ご教授願います 当方初心者の為VBAコードでお願いします
- ベストアンサー
- オフィス系ソフト
- 複数CSVファイルを一括インポート
お世話になります ■概要 Accessのボタンで複数のCSVファイルを一括にひとつのテーブルにインポートさせたいのですが ■内容 テキストボックス、参照ボタン、実行ボタンをフォーム上に設置 参照ボタンでダイアログボックスを表示させCSV複数選択し 選択内容がテキストへ反映。 実行ボタンで選択された複数CSVをインポートさせたいです 少し難しいと思いますが、わかる方ご教授よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- VBA 複数のCSVファイルを一度にインポートするには？
お世話になります ■概要 Accessのボタンで複数のCSVファイルを一括にひとつのテーブルにインポートさせたいのですが ■内容 テキストボックス、参照ボタン、実行ボタンをフォーム上に設置 参照ボタンでダイアログボックスを表示させCSV複数選択し 選択内容がテキストへ反映。 実行ボタンで選択された複数CSVをインポートさせたいです 当方初心者なのでVBA等の回答があれば幸いです ご教授よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- Excelでcsvファイルをエクスポートしても、""を残しておきたい
csvファイルをインポートしてExcelで編集し、また、csvファイルとして書き出すと、元のcsvファイルにはあった文字列の引用符「""」が消えてしまいます。 また、csvファイルを「テキストインポートウィザード」や「外部データの取り込み」を使って文字列の引用符を「なし」でインポートするとExcel上では問題ないのですが、csvで書き出すと「""""""」と引用符が2組増えています。 ご存知の方、元のcsvファイルとまったく同じ引用符でエクスポートする方法を教えてくださいm（_)m
- ベストアンサー
- オフィス系ソフト
- EXCEL- ＶＢＡ（CSVファイル→インポート）
Ａ列～Ｆ列になる複数（100個以上）のＣＳＶファイルをエクセルファイルにインポートして更に個別にエクセルファイルとして保存したいのですが ＶＢＡでできるのでしょうか？ 記憶マクロでやったらどうにもうまくいきません。 エクセルのＶＢＡについては ほとんど知識ゼロなので困っております。 大変厚かましくありますが どなた様かご教授お願いできたらと思います！！ 【元のファイルの状態】 ◆ファイル名「*.CSV」*は文字数それぞれ違います。 ＜例：tanaka.xls だったり 09福島.xls＞ ◆入っているドライブ TEXT;C:\Documents and Settings\ＡＡ＿Ｂ\デスクトップ\練習 ◆Ａ～Ｆ列にデータが入っている 【やりたいこと】 (1)Ａ～Ｆ列はカンマ区切りで全て文字列としたい (2)元のファイル名でエクセルとして保存したい「*.XLS」
- ベストアンサー
- オフィス系ソフト
- csvファイルのインポート
Accessでcsvファイルをインポートさせようとしています。しかし、「F1フィールドがありません」のようなエラー表示が出て、できません。私の予想では、テーブルの型とcsvファイルの型が違うのではないかと思っています。テーブルには、数値型、テキスト型、日付/データ型があります。 保存したcsvファイルをExcelで開くと日付がApr-01や、2001/06/26となったりしていました。どこかで型変換のようなことをするのでしょうか？csvのことはよく分かりません。どうか、よろしくお願いします。
- ベストアンサー
- その他(データベース)
- Excelの範囲指定セルににcsvファイルのデータを貼り付け
Excelファイルの任意のセルにCSVファイルのデータを貼り付けたいと思っています。 各ワークシートにCSVファイルのデータを読み込むマクロを書いて実行していたのですが、ファイルが増えてしまったのでもっと簡単に処理ができたら、と思い相談させていただきます。 Visual C# 2008の勉強を始めて間もないので初歩的な質問かと思いますが、宜しくお願い致します。 希望する処理の流れは 1．「Excelファイル選択」ボタンを押すと、指定のフォルダ内のxlsファイルをリストボックスに表示 2．Excelファイル選択 3．「CSVファイル選択」ボタンを押すと、指定のフォルダ内のcsvファイルをリストボックスに表示 4．Excelファイルに対応するCSVファイル選択 5．「データ読込」ボタンでテキストファイルのデータをExcelファイルの指定のセルに貼り付け 6．Excelファイルを保存して終了 1．と3．のリストボックスへのファイル表示はできているのですが、選択したExcelファイルにcsvファイルのデータの貼り付けの方法がわかりません… それぞれのファイルを変数に格納して、更にcsvファイルのデータを配列変数に流して、繰り返し処理で貼り付けていくのかな？と想像しているのですが… http://support.microsoft.com/kb/302096/ja 上記のページを参考にしたのですが、外部ファイルのデータを指定のセルに入力するにはどうしたらよいのかわかりませんでした。 ・Excelファイルの指定のセルはB12～H1011までの7列1000行です。 ・csvファイルは1000行に満たないこともあります。 ・入力するデータ型は整数と文字列です。 PC環境 Windows XP SP3 Excel 2007 Visual C# 2008 要領を得ない説明で申し訳ありませんが、どうぞ宜しくお願い致します。
- 締切済み
- C・C++・C#
- MS AccessでExcelファイルのインポートは？
AccessのVBAでExcelファイルをインポートするにはどうすればいいのでしょうか？ ちなみに DoCmd.TransferText acImportDelim, , "Tmp名簿", strInPutPath & "\名簿.csv", True （strInPutPathは、ダイアログから取得したパスです） では、CSVファイル（TXTファイル）しか読み込めません。 （もちろん、そのため拡張子が「.csv」にしていますが 読み込むファイルをテキストファイルにしたら「.txt」でもいいです） 「ファイル」メニュー（コマンド）の「外部データの取り込み」→「インポート」では、Excelファイルも読み込めるので悔しいです。 これをVBAでやりたいんですが。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
お礼
まことにありがとうございました なんとか目標に達成できました。ｍ（＿＿）ｍ これからも頑張りたいとおもいます