Excel VBA質問箱 IV

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

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


53400 / 76737 ←次へ | 前へ→

【28153】Re:複数あるテキストファイルの特定の行を一括で変更
お礼  山田正幸  - 05/8/29(月) 22:30 -

引用なし
パスワード
   ▼だるま さんへ
ありがとうございます。
ファイル数が、1000近くあったのに、
あっという間に思い通りのファイルの変更できました。
vbaすばらしい!

ただいま勉強中なのですが、
6行目を削除というのは、作成して頂いた
20行目に相当するのでしょうか?


1Sub test()
2  Dim myRange As Range
3  Dim myCell As Range
4  Dim myPath As String
5  Dim N As Integer
6  Dim D As String
7  Dim A As Variant
8      
9  Set myRange = Range("A1", Range("A65536").End(xlUp))
10      
11  For Each myCell In myRange.Cells
12    myPath = myCell.Value
13    N = FreeFile
14    Open myPath For Input As #N
15    D = InputB(LOF(N), N)
16    D = StrConv(D, vbUnicode)
17    Close #N
18        
19    A = Split(D, vbCrLf)
20    A(5) = myCell.Offset(, 1).Value
21    D = join(A, vbCrLf)
22        
23    N = FreeFile
24    Open myPath For Output As #N
25    Print #N, D;
26    Close #N
27  Next
28      
29  Set myCell = Nothing
30  Set myRange = Nothing
31  End Sub

ありがとうございました。

0 hits

【28115】複数あるテキストファイルの特定の行を一括で変更 山田正幸 05/8/29(月) 14:57 質問
【28120】Re:複数あるテキストファイルの特定の行... 小僧 05/8/29(月) 16:50 発言
【28122】Re:複数あるテキストファイルの特定の行を... だるま 05/8/29(月) 16:55 発言
【28131】Re:複数あるテキストファイルの特定の行を... 山田正幸 05/8/29(月) 18:52 質問
【28138】Re:複数あるテキストファイルの特定の行を... だるま 05/8/29(月) 19:51 回答
【28153】Re:複数あるテキストファイルの特定の行を... 山田正幸 05/8/29(月) 22:30 お礼
【28155】Re:複数あるテキストファイルの特定の行を... だるま 05/8/29(月) 22:41 回答
【28158】Re:複数あるテキストファイルの特定の行を... 山田正幸 05/8/29(月) 22:47 お礼

53400 / 76737 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free