Excel VBA質問箱 IV

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

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


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

74780 / 76732

←次へ　｜　前へ→


	【6408】Re:セルの内容をテキストに

あやか - 03/6/27(金) 14:28 -


	引用なし

	パスワード

えーと、えーと;;;
EとFにはエクセルデータになんか入れるんでしょか。

▼ポンタさん：
>Range("E:F") を作業列として使うコードに書き換えてみましたので、
>こちらもお試しください。
>
>Sub test()
>　　Dim objFs As Object, objText As Object
>　　Dim FileName As String
>　　Dim MyStr As String
>　　Dim i As Long
>　　FileName = "C:\My Documents\test.txt"
>　　Set objFs = CreateObject("Scripting.FileSystemObject")
>　　Set objText = objFs.OpenTextFile(FileName, 2, True)
>　　With Range("C1", Range("C65536").End(xlUp))
>　　　　.Offset(0, 2).Resize(, 2).FormulaR1C1 = "=LEN(R[0]C[-2])+1"
>　　End With
>　　Range("C65536").End(xlUp).Offset(1, 2).FormulaR1C1 = "=MAX(R1C5:R[-1]C[0])"
>　　Range("C65536").End(xlUp).Offset(1, 3).FormulaR1C1 = "=MAX(R1C6:R[-1]C[0])"
>　　For i = 1 To Range("A65536").End(xlUp).Row
>　　　　'MyStrにA列の値をセット　　　　　　　　 MyStr = "0001"
>　　　　MyStr = Cells(i, 1).Value
>　　　　'MyStrの文末にB列の値を付け足す　　　　 MyStr="0001030625"
>　　　　MyStr = MyStr & Cells(i, 2).Value
>　　　　'Len(Cells(i, 3).Valueで"1000"の文字数を数える = 4
>　　　　'桁数1 = 6だから String(2, " ")となる。これは、スペース２文字("　")を返す
>　　　　'よって MyStr=MyStr="0001030625　"となる
>　　　　MyStr = MyStr & String(Range("C65536").End(xlUp).Offset(1, 2) _
>　　　　　　 - Len(Cells(i, 3).Value), " ")
>　　　　'C列の値を付け足す　　　　　　　　　　　 MyStr="0001030625　1000"
>　　　　MyStr = MyStr & Cells(i, 3).Value
>　　　　'スペースを付け足す　　　　　　　　　　 MyStr="000130625　1000　"
>　　　　MyStr = MyStr & String(Range("C65536").End(xlUp).Offset(1, 3) _
>　　　　　　- Len(Cells(i, 4).Value), " ")
>　　　　'D列の値を付け足す　　　　　　　　　　 MyStr="000130625　1000　50"
>　　　　MyStr = MyStr & Cells(i, 4).Value
>　　　　'テキストファイルに書き込み
>　　　　Call objText.WriteLine(MyStr)
>　　Next
>　　objText.Close
>　　Set objText = Nothing
>　　Set objFs = Nothing
>　　Range("E:F").ClearContents
>End Sub

1 hits

▼

【5035】セルの内容をテキストに 花粉症 03/4/18(金) 14:42