A 回答 (6件)
- 最新から表示
- 回答順に表示
No.6
- 回答日時:
そもそもコモンダイアログボックスの機能の限界について認識されていないように見受けられますが。
コモンダイアログボックスが出来るのは
・ファイルの所在をユーザーに指定させる。
・指定されたファイルの名前を取得する。
だけです。コモンダイアログで取得されたファイル名を元に、ファイルをオープンして中身を読み、またCSVファイルとして書き出す処理は別途自分で作成する必要があります。
まずこの点について確認しなければなりませんね。
No.5
- 回答日時:
#4です。
下記を試して見てください。文字列を""で囲んでいないCSV形式なら、Replaceの行とその前行は不要。
Sub tesat01()
MsgBox "処理開始"
fn = Application.GetOpenFilename( _
"CSVファイル(*.csv),*.csv")
j = 2
Open fn For Input As #1
While Not EOF(1)
Line Input #1, a
b = Split(a, ",") 'カンマで区切り位置分割
For i = 0 To UBound(b) '配列要素の数だけ=項目数だけ
Cells(j, i + 1) = b(i)
Cells(j, i + 1).Activate
ActiveCell.Replace Chr(34), "" '””を取り除き
Next i
j = j + 1
Wend
Close #1
MsgBox "処理終了"
MsgBox "処理件数" & j - 2 & "件"
End Sub
No.4
- 回答日時:
#2です。
これではVBではなく、エクセルVBAではないですか。問題が変ったと受け取られる内容です。>画面シートに表示
Msgboxを使う程度で良いのですか。
>FROM~TO初期値セット 2 ~ 最終行
どの列?2より1づつ増やして連番を振ると言うこと?
No.3
- 回答日時:
質問と補足とは全く整合性がないと思います。
補足ではなにを質問されたいのか理解に苦しみます。
何でも回答いたしますが、質問の内容を今一度
的確に書いて下さい!!!
No.2
- 回答日時:
#1のご回答のようにツール-コンポーネント-Microsoft Common Dioalog Control 6.0にチェックを入れOKをクリックする。
ツールボックスにコントロールが追加されるのでフォ‐ム上に貼りつける。ダブルクリックする。
Form Loadイベントに
Private Sub Form_Load()
Form1.CommonDialog1.ShowOpen
End Sub
FormのClickイベントに
Private Sub Form_Click()
fn = CommonDialog1.FileName
Form1.Print fn
Open fn For Input As #1
p01:
While Not EOF(1)
Line Input #1, a
Form1.Print a
Wend
Close #1
Form1.Print "END"
End Sub
実行するとファイルを「開く」画面が出る。ファイルを指定し、フォームをクリックすると、ファイル名と内容が
フォーム上に表示。
この回答への補足
すみません。補足をさせていただきます。
画面シート
1.ファイル読み込み処理
・処理開始メッセージを画面シートに表示
・DATAシート(エクセル)へファイルを読み込み処理
・処理終了メッセージを画面シートに表示
・処理終了後、処理件数を画面シートに表示
・FROM~TO初期値セット 2 ~ 最終行
DATAシート
1.1行目はタイトル行とし、固定
2.あるファイルを1行順読みし、タブ区切りごとに(A 2)~(AF 2)へセットする。
[異常処理]
(AF 2)へセットする文字がENDでなければ、
「ファイルレイアウトが違います。」で異常終了。
3.各セルにセットする値は、ファイルの値をそのままセットする。
例)AE列の合計金額も、計算するのではなく、ファイルの値をセットする。
No.1
- 回答日時:
CommonDialogの表示をツールボックスに追加する
方法
メニューバーからプロジェクト→コンポーネント
を開いて、MicrosoftCommonDialogV6.0 を選択する
(ルーツバーに追加されます)
これをフォームに貼り付けます。
この名前はデフォルトでCommonDialog1となっていますので
イベントで
ファイルにセーブする時
CommonDialog1.ShowSave
ファイルを開く時
CommonDialog1.ShowOpen
としれやればコントロールを開いて操作することが
出来ます。詳しい設定はプロパティボックスでも出来ますが、csvファイルにする場合はフィルターを
*.csv にするなどで設定が可能です。
質問の意図と違っていたら連絡下さい。
この回答への補足
画面シート
1.ファイル読み込み処理
・処理開始メッセージを画面シートに表示
・DATAシートへファイルを読み込み処理
・処理終了メッセージを画面シートに表示
・処理終了後、処理件数を画面シートに表示
・FROM~TO初期値セット 2 ~ 最終行
DATAシート
1.1行目はタイトル行とし、固定
2.あるファイルを1行順読みし、タブ区切りごとに(A 2)~(AF 2)へセットする。
[異常処理]
(AF 2)へセットする文字がENDでなければ、
「ファイルレイアウトが違います。」で異常終了。
3.各セルにセットする値は、ファイルの値をそのままセットする。
例)AE列の合計金額も、計算するのではなく、ファイルの値をセットする。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- その他(プログラミング・Web制作) Fortranでの出力ファイル 2 2023/03/21 21:25
- Access(アクセス) CSVファイルの「0落ち」にVBA 6 2023/02/02 15:27
- XML PHP.laravelについて 1 2023/07/06 15:26
- Visual Basic(VBA) VBA初心者です。電話番号の数字の前に0を表示させたいです。 2 2022/12/14 03:58
- Excel(エクセル) エクセルのVBAについて とあるサイトのコードを参考に、CSVの文字化けを直すVBAを作成しているの 7 2022/11/04 14:15
- Visual Basic(VBA) VBAで特定の場所にあるCSVファイル(複数)から特定場所を抜き出してExcelに転記したいです。 11 2023/05/23 16:29
- その他(プログラミング・Web制作) pythonでクラスで複数のメソッドを利用する方法 2 2022/04/15 04:17
- その他(プログラミング・Web制作) Pythonで、データファイルと列名ファイルを1つのファイルにしたいです。 1 2023/07/27 20:29
- その他(プログラミング・Web制作) データ解析ソフトRでのファイル入力read.csvがエラーになります 7 2022/03/27 22:11
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
研究する文献がたくさんありま...
-
#include <Windows.h>というヘ...
-
binファイルを解凍したいの...
-
jarファイル
-
ファイルが開かれているかどう...
-
VBAでパスワードつきZIP圧縮に...
-
参照するファイルをワイルドカ...
-
公文書のxmlファイルの開き方が...
-
バッチ処理で追記コピーしたい
-
Seasar2のdiconファイルの読み方
-
2つのファイルのバイナリをコン...
-
拡張子 *.001ってなんですか?
-
COBOL
-
アクセス 壊れた? 「ファイ...
-
JRのjsonファイルって使って大...
-
ファイル圧縮形式の変更について
-
コマンドプロンプトで、指定し...
-
GridviewをExcel形式で書き出す
-
HTMLについて教えて頂きたいで...
-
VBについて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
アクセス 壊れた? 「ファイ...
-
C#でログファイルにファイルパ...
-
binファイルを解凍したいの...
-
#include <Windows.h>というヘ...
-
Latexで図番号だけを「図1.1」...
-
.NETアプリを作ったときの .man...
-
exeファイルの中身を見る方法は...
-
C言語---ファイルに出力したデ...
-
CSSを1ページに1枚作るのって変...
-
jarファイル
-
コマンドプロンプトで、指定し...
-
自分で作成した重要ファイルを...
-
コマンドプロンプトで作成日時...
-
バッチ処理で追記コピーしたい
-
ファイルが開かれているかどう...
-
VBSが起動しない
-
公文書のxmlファイルの開き方が...
-
監視ツールを入れさせられまし...
-
Seasar2のdiconファイルの読み方
-
ファイル名にドットを使ったフ...
おすすめ情報