Excel VBA質問箱 IV

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

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


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

6837 / 13646 ﾂﾘｰ

←次へ　｜　前へ→

▼

【42817】出力したデータをテキストに書き出す前にデータを変換したい。 ゆりっぺ 06/9/22(金) 19:43

【42822】Re:出力したデータをテキストに書き出す前... ichinose 06/9/22(金) 21:24


	【42817】出力したデータをテキストに書き出す前に...

ゆりっぺ - 06/9/22(金) 19:43 -


	引用なし

	パスワード

下記は記述の一部を抜粋いたしました。
記述のちょうど中段あたりで出力したい列をズラっと指定しているのですが
この状態ですとシートのデータ通りに吐き出されてしまいます。
出力されたデータに指定した文字が含まれていた場合に
その文字を指定した文字に変換したいのですが
どのように追記すればよいのでしょうか。
ご存知の方どうぞ教えてください。

　　Dim Z As Long
　　Dim ingFFF As Long
　　Dim intEEE As Integer
　　Dim vntAAA As Variant
　　Dim vntData As Variant
　　Dim vntCCC As Variant
　　Dim vntBBB As Variant
　　Dim strDDD As String

　　
　　'出力ファイル名を取得
　　If Not GetWriteFile(vntCCC, ThisWorkbook.Path) Then
　　　　strDDD = "マクロがキャンセルされました"
　　　　GoTo Wayout
　　End If
　
　　'出力ファイルのOpen
　　intEEE = FreeFile
　　Open vntCCC For Output As intEEE
　

　　Dim y As Integer
　　Dim str_tmp As String
　　
　　'どの位置から処理を行うのか
　　For y = 9 To 198
　　'データ行数を取得
　　　　str_tmp = ""
　　'9行目～198行目の指定された列の情報を返す
　　　　str_tmp = str_tmp & ActiveSheet.Cells(y, 2)
　　　　str_tmp = str_tmp & "," & ActiveSheet.Cells(y, 3)　　　
　　　　str_tmp = str_tmp & "," & ActiveSheet.Cells(y, 4)
　　　　str_tmp = str_tmp & "," & ActiveSheet.Cells(y, 5)
　　　　str_tmp = str_tmp & "," & ActiveSheet.Cells(y, 6)
　　　　str_tmp = str_tmp & "," & ActiveSheet.Cells(y, 7)
　　　　str_tmp = str_tmp & "," & ActiveSheet.Cells(y, 8)
　　　　str_tmp = str_tmp & "," & ActiveSheet.Cells(y, 9)
　　　　str_tmp = str_tmp & "," & ActiveSheet.Cells(y, 10)
　　　　str_tmp = str_tmp & "," & ActiveSheet.Cells(y, 11)
　　　　str_tmp = str_tmp & "," & ActiveSheet.Cells(y, 12)
　　　　str_tmp = str_tmp & "," & ActiveSheet.Cells(y, 13)
　　　　str_tmp = str_tmp & "," & ActiveSheet.Cells(y, 14)
　　　　str_tmp = str_tmp & "," & ActiveSheet.Cells(y, 15)
　　　　str_tmp = str_tmp & "," & ActiveSheet.Cells(y, 16)
　　　　str_tmp = str_tmp & "," & ActiveSheet.Cells(y, 17)
　　　　str_tmp = str_tmp & "," & ActiveSheet.Cells(y, 18)
　　　　str_tmp = str_tmp & "," & ActiveSheet.Cells(y, 19)
　　　　str_tmp = str_tmp & "," & ActiveSheet.Cells(y, 20)
　　　　str_tmp = str_tmp & "," & ActiveSheet.Cells(y, 21)
　　　　str_tmp = str_tmp & "," & ActiveSheet.Cells(y, 22)
　　　　str_tmp = str_tmp & "," & ActiveSheet.Cells(y, 23)
　　　　str_tmp = str_tmp & "," & ActiveSheet.Cells(y, 24)
　　　　str_tmp = str_tmp & "," & ActiveSheet.Cells(y, 25)
　　　　str_tmp = str_tmp & "," & ActiveSheet.Cells(y, 26)
　　　　str_tmp = str_tmp & "," & ActiveSheet.Cells(y, 27)
　　　　Print #intEEE, str_tmp
　　Next
　　
　　'出力ファイルのClose
　　Close #intEEE
　
　　strDDD = "処理が完了しました"
　
Wayout:
　
　　MsgBox strDDD, vbInformation
　
End Sub


	【42822】Re:出力したデータをテキストに書き出す...

ichinose - 06/9/22(金) 21:24 -


	引用なし

	パスワード

▼ゆりっぺさん：
こんばんは。

>下記は記述の一部を抜粋いたしました。
>記述のちょうど中段あたりで出力したい列をズラっと指定しているのですが
>この状態ですとシートのデータ通りに吐き出されてしまいます。
>出力されたデータに指定した文字が含まれていた場合に
>その文字を指定した文字に変換したいのですが
>どのように追記すればよいのでしょうか。
>ご存知の方どうぞ教えてください。
GetWriteFileというファンクションプロシジャーも
掲載してください。
でないとこっちで想像して作らなければなりませんから・・・。

Sub main()
　　Dim Z As Long
　　Dim ingFFF As Long
　　Dim intEEE As Integer
　　Dim vntAAA As Variant
　　Dim vntData As Variant
　　Dim vntCCC As Variant
　　Dim vntBBB As Variant
　　Dim strDDD As String

　
　　'出力ファイル名を取得
　　If Not GetWriteFile(vntCCC, ThisWorkbook.Path) Then
　　　　strDDD = "マクロがキャンセルされました"
　　　　GoTo Wayout
　　End If

　　'出力ファイルのOpen
　　intEEE = FreeFile
　　Open vntCCC For Output As intEEE

　　Dim y As Integer
　　Dim str_tmp As String
　
　　'どの位置から処理を行うのか
　　For y = 9 To 198
　　'データ行数を取得
　　　　str_tmp = ""
　　'9行目～198行目の指定された列の情報を返す
　　　 With Application
　　　　　str_tmp = _
　　　　　　 Replace(Join(.Transpose( _
　　　　　　 .Transpose(Range(Cells(y, 2), Cells(y, 27)))), ",") _
　　　　　　 , "書き換え前文字列", "書換え後文字列")
'　　ここに置換処理する処理前文字列と処理後文字列を記述します
　　　　　
　　　　　End With
　　　 Print #intEEE, str_tmp
　　Next
　
　　'出力ファイルのClose
　　Close #intEEE

　　strDDD = "処理が完了しました"

Wayout:

　　MsgBox strDDD, vbInformation

End Sub
'=====================================================================
Function GetWriteFile(vntCCC As Variant, mypath As Variant) As Boolean
'こんなファンクションプロシジャーですか？

　　Dim ans As Variant
　　ChDir mypath
　　GetWriteFile = False
　　ans = Application.GetSaveAsFilename("", "テキストファイル (*.csv), *.csv")
　　If TypeName(ans) <> "Boolean" Then
　　　 vntCCC = ans
　　　 GetWriteFile = True
　　　 End If
End Function

試してみてください


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

6837 / 13646 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free