Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

53087 / 76736

←次へ　｜　前へ→


	【28468】Re:CSVファイル

青 - 05/9/7(水) 13:12 -


	引用なし

	パスワード

▼かみちゃんさん：
　アドバイスありがとうございます。
　出題されたCSVファイルを最初に開いた時には「######」となっていて
　書式設定を数値に直して保存し、再度開くと、「111111111」⇒「1.11E+08」
　となっていました。先の返信で説明不足になってすいません。

　CSVファイルの比較プログラム作成の課題が出され、Sheet1とSheet2を比較し　　差分をSheet3に表示させる
　Sub テスト()
　Const MAXX = 12
　Const MAXY = 63
　 Dim Sheet1(MAXX) As String
　 Dim Sheet2(MAXX) As String
　　Sheets("Sheet3").Select
　　Cells.Select
　　Selection.Clear
　　Range("A1").Select
　A = 1
　 For Y = 1 To MAXY
　B = 1
　 For X = 1 To MAXX
　Sheet1(X) = Sheets("Sheet1").Cells(Y, X).Value
　Sheet2(X) = Sheets("Sheet2").Cells(Y, X).Value
　
　 If Sheet1(X) <> Sheet2(X) Then B = 0
　
　 Next
　　
　　If B = 0 Then
　　 MsgBox "データ不一致"

　 For X = 1 To MAXX
　 Cells(Y, X).Value = Sheet1(X)
　 Next
　　 Y = Y + 1
　 End If

　 Next
　　MsgBox "終了確認"
　　End Sub

　上記のプログラムを作ったのですが、ファイル名を指定すると2つのファイルを
　比較する自動化されたプログラムに修正するように指示されたのですが、
　作成方法が皆目検討がつかない状況です。
　よろしければアドバイスお願いします。

0 hits

▼

【28434】CSVファイル 青 05/9/6(火) 16:31