Excel VBA質問箱 IV

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

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


53409 / 76732 ←次へ | 前へ→

【28138】Re:複数あるテキストファイルの特定の行を一括で変更
回答  だるま WEB  - 05/8/29(月) 19:51 -

引用なし
パスワード
   では、こんなもんでどうでしょうか。^d^

Sub test()
  Dim myRange As Range
  Dim myCell As Range
  Dim myPath As String
  Dim N As Integer
  Dim D As String
  Dim A As Variant
  
  Set myRange = Range("A1", Range("A65536").End(xlUp))
  
  For Each myCell In myRange.Cells
    myPath = myCell.Value
    N = FreeFile
    Open myPath For Input As #N
    D = InputB(LOF(N), N)
    D = StrConv(D, vbUnicode)
    Close #N
    
    A = Split(D, vbCrLf)
    A(5) = myCell.Offset(, 1).Value
    D = join(A, vbCrLf)
    
    N = FreeFile
    Open myPath For Output As #N
    Print #N, D;
    Close #N
  Next
  
  Set myCell = Nothing
  Set myRange = Nothing
End Sub

2 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 お礼

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