Excel VBA質問箱 IV

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

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


4040 / 13646 ツリー ←次へ | 前へ→

【58669】CSV出力について お困りです 08/11/4(火) 14:05 質問[未読]
【58671】Re:CSV出力について kanabun 08/11/4(火) 14:29 発言[未読]
【58672】Re:CSV出力について お困りです 08/11/4(火) 15:02 質問[未読]
【58675】Re:CSV出力について kanabun 08/11/4(火) 15:20 発言[未読]
【58684】Re:CSV出力について お困りです 08/11/4(火) 16:57 質問[未読]
【58685】Re:CSV出力について アルファ 08/11/4(火) 17:12 発言[未読]
【58686】Re:CSV出力について kanabun 08/11/4(火) 17:37 発言[未読]
【58689】Re:CSV出力について お困りです 08/11/4(火) 19:40 質問[未読]
【58690】Re:CSV出力について kanabun 08/11/4(火) 20:37 発言[未読]
【58734】Re:CSV出力について お困りです 08/11/6(木) 10:35 お礼[未読]
【58747】Re:CSV出力について お困りです 08/11/6(木) 14:30 お礼[未読]

【58669】CSV出力について
質問  お困りです  - 08/11/4(火) 14:05 -

引用なし
パスワード
   諸先輩方のみなさんよろしくお願いします。

”ワークシートA”のA〜Hまでの範囲でかつ
データが存在する所までの部分をCSV形式にて出力したいと
考えています。
どの様な構文を作成すればよいでしょうか?

よろしくご鞭撻お願いします。

【58671】Re:CSV出力について
発言  kanabun  - 08/11/4(火) 14:29 -

引用なし
パスワード
   ▼お困りです さん:

こんにちは。

>”ワークシートA”のA〜Hまでの範囲でかつ
>データが存在する所までの部分をCSV形式にて出力したいと
>考えています。
>どの様な構文を作成すればよいでしょうか?

新規Bookを挿入して(できれば Sheet枚数は1枚がよい)、
元データシートの指定範囲をCopy して、新規BookのSheet1 に
Pasteして、
ファイルメニュー「名前をつけて保存」から、CSV形式で保存する
といった手順でどうですかね?

>”ワークシートA”のA〜Hまでの範囲でかつ
>データが存在する所までの部分
は、
Worksheets("ワークシートA").UsedRange.Resize( ,8).Copy _
  新しいBook.Sheets(1).Range("A1")

といった感じで。

【58672】Re:CSV出力について
質問  お困りです  - 08/11/4(火) 15:02 -

引用なし
パスワード
   ▼kanabun さん:
>▼お困りです さん:
>
>こんにちは。
>
>>”ワークシートA”のA〜Hまでの範囲でかつ
>>データが存在する所までの部分をCSV形式にて出力したいと
>>考えています。
>>どの様な構文を作成すればよいでしょうか?
>
>新規Bookを挿入して(できれば Sheet枚数は1枚がよい)、
>元データシートの指定範囲をCopy して、新規BookのSheet1 に
>Pasteして、
>ファイルメニュー「名前をつけて保存」から、CSV形式で保存する
>といった手順でどうですかね?
>
>>”ワークシートA”のA〜Hまでの範囲でかつ
>>データが存在する所までの部分
>は、
>Worksheets("ワークシートA").UsedRange.Resize( ,8).Copy _
>  新しいBook.Sheets(1).Range("A1")
>
>といった感じで。

早々のご指導ありがとうございます。このサイトを見ていたら以前同様な質問で参考のURLが出ていたので調べました。

構文は以下です。ただ、ユーザーフォーム上ではこのままでは動かないと思いまして追加で質問させていただきます。

Private Sub CommandButton1_Click()
     ここにしたの構文を入れると思いますが
End Sub
 下の構文の何処を修正したらよいでしょうか?よろしくご指導お願いします。

Option Explicit

' CSV形式テキストファイル書き出すサンプル
Sub WRITE_CSVFile()
  Const cnsTITLE = "CSVテキストファイル出力処理"
  Const cnsFILTER = "CSVファイル (*.csv;*.dat),*.csv;*.dat"
  Dim xlAPP As Application    ' Applicationオブジェクト
  Dim intFF As Integer      ' FreeFile値
  Dim strFILENAME As String    ' OPENするファイル名(フルパス)
  Dim X(1 To 8) As Variant    ' 書き出すレコード内容
  Dim GYO As Long         ' 収容するセルの行
  Dim GYOMAX As Long       ' データが収容された最終行
  Dim lngREC As Long       ' レコード件数カウンタ
  Dim COL As Long         ' カラム(Work)

  ' Applicationオブジェクト取得
  Set xlAPP = Application
  ' 「名前を付けて保存」のフォームでファイル名の指定を受ける
  xlAPP.StatusBar = "出力するファイル名を指定して下さい。"
  strFILENAME = xlAPP.GetSaveAsFilename(InitialFilename:="SAMPLE.csv", _
    FileFilter:=cnsFILTER, Title:=cnsTITLE)
  ' キャンセルされた場合は以降の処理は行なわない
  If StrConv(strFILENAME, vbUpperCase) = "FALSE" Then Exit Sub

  ' 収容最終行の判定(Excel認知の最終行から上に向かってデータがある行を探す)
  GYOMAX = Cells.SpecialCells(xlCellTypeLastCell).Row
  Do While Cells(GYOMAX, 1).Value = ""
    GYOMAX = GYOMAX - 1
  Loop
  If GYOMAX < 1 Then
    xlAPP.StatusBar = False
    MsgBox "テキストをA〜H列1行目から入力してから起動して下さい。",, cnsTITLE
    Exit Sub
  End If

  ' FreeFile値の取得(以降この値で入出力する)
  intFF = FreeFile
  ' 指定ファイルをOPEN(出力モード)
  Open strFILENAME For Output As #intFF
  ' 1行目から開始
  GYO = 1
  ' 最終行まで繰り返す
  Do Until GYO > GYOMAX
    Erase X     ' 初期化                  
    ' A〜H列内容をレコードにセット(先頭は1行目)
    For COL = 1 To 8
      X(COL) = FP_CutInjusticeChar(Cells(GYO, COL).Value)   
    Next COL
    ' レコード件数カウンタの加算
    lngREC = lngREC + 1
    xlAPP.StatusBar = "出力中です....(" & lngREC & "レコード目)"
    ' レコードを出力
    Write #intFF, X(1), X(2), X(3), X(4), X(5), X(6), X(7), X(8)         
    ' 行を加算
    GYO = GYO + 1
  Loop
  ' 指定ファイルをCLOSE
  Close #intFF
  xlAPP.StatusBar = False
  ' 終了の表示
  MsgBox "ファイル出力が完了しました。" & vbCr & _
    "レコード件数=" & lngREC & "件", vbInformation, cnsTITLE
End Sub

' CSVテキスト項目に出力できない文字を除去する
Private Function FP_CutInjusticeChar(vntInText As Variant) As Variant
  Dim strInText2 As String
  Dim POS As Long
  Dim strChar As String
  Dim strOutText As String

  FP_CutInjusticeChar = Empty
  ' 一旦、文字列に変換する
  strInText2 = Trim$(CStr(vntInText))
  ' ブランクの場合は処理なし
  If strInText2 = "" Then Exit Function

  ' 文字列の桁数分繰り返す
  strOutText = ""
  For POS = 1 To Len(strInText2)
    ' 1文字を取り出す
    strChar = Mid(strInText2, POS, 1)
    ' ダブルクォーテーションとCRコードをOMIT
    If ((strChar <> vbCr) And (strChar <> """")) Then
      strOutText = strOutText & strChar
    End If
  Next POS
  ' 元の値が数値の場合はDouble型とする
  If IsNumeric(vntInText) = True Then
    FP_CutInjusticeChar = CDbl(strOutText)
  Else
    FP_CutInjusticeChar = strOutText
  End If
End Function

【58675】Re:CSV出力について
発言  kanabun  - 08/11/4(火) 15:20 -

引用なし
パスワード
   > Private Sub CommandButton1_Click()
>      ここにしたの構文を入れると思いますが
> End Sub
>  下の構文の何処を修正したらよいでしょうか?よろしくご指導お願いします。

あいや、、ぼくのアドバイスでは、そこにある方法は使わないです。

Private Sub CommandButton1_Click()
  '(1)新規Bookをシート枚数1枚で 追加する。

  '(2) 元のBookの指定シートのUsedRange.Resize(,8) の範囲を
    Copyして、新規BookのSheets(1).Range("A1")に貼り付ける。

  '(3)新規BookをCSV形式で保存する

End Sub

これらはほとんどマクロ記録でコードが得られますから、
一度操作をマクロ記録されて得られたコードを理解されてはいかがでしょう

というのが、ぼくのアドバイスです。

なお、UserFormから処理をするなら、
指定範囲をクリップボードにCopyして、
UserFormについているDataObjectでクリップボードのTextを取得して、

Private Sub CommandButton1_Click()
 
  Worksheets("Sheet1").UsedRange.Resize(,8).Copy
  Open CSVファイルパス For Output As #1
  With New DataObject
   .GetFromClipboard
   .Print #1, Replace(.Text, vbTab, ",");
  End With
  Close #1

End Sub

とする方法もあります。
セルの値にカンマが含まれていないことが条件ですけど。

【58684】Re:CSV出力について
質問  お困りです  - 08/11/4(火) 16:57 -

引用なし
パスワード
   ▼kanabun さん:
>> Private Sub CommandButton1_Click()
>>      ここにしたの構文を入れると思いますが
>> End Sub
>>  下の構文の何処を修正したらよいでしょうか?よろしくご指導お願いします。
>
>あいや、、ぼくのアドバイスでは、そこにある方法は使わないです。
>
>Private Sub CommandButton1_Click()
>  '(1)新規Bookをシート枚数1枚で 追加する。
>
>  '(2) 元のBookの指定シートのUsedRange.Resize(,8) の範囲を
>    Copyして、新規BookのSheets(1).Range("A1")に貼り付ける。
>
>  '(3)新規BookをCSV形式で保存する
>
>End Sub
>
>これらはほとんどマクロ記録でコードが得られますから、
>一度操作をマクロ記録されて得られたコードを理解されてはいかがでしょう
>
>というのが、ぼくのアドバイスです。
>
>なお、UserFormから処理をするなら、
>指定範囲をクリップボードにCopyして、
>UserFormについているDataObjectでクリップボードのTextを取得して、
>
>Private Sub CommandButton1_Click()
> 
>  Worksheets("Sheet1").UsedRange.Resize(,8).Copy
>  Open CSVファイルパス For Output As #1
>  With New DataObject
>   .GetFromClipboard
>   .Print #1, Replace(.Text, vbTab, ",");
>  End With
>  Close #1
>
>End Sub
>
>とする方法もあります。
>セルの値にカンマが含まれていないことが条件ですけど。

ありがとうございます。
→.Print #1, Replace(.Text, vbTab, ",");
の構文がコンパイル・構文エラーと出てしまいます。
どうすればよいでしょうか?
お願いします。

【58685】Re:CSV出力について
発言  アルファ  - 08/11/4(火) 17:12 -

引用なし
パスワード
   ▼お困りです さん ▼kanabun さん:

横やりすみません。

まず、
>Private Sub CommandButton1_Click()
>  '(1)新規Bookをシート枚数1枚で 追加する。
>
>  '(2) 元のBookの指定シートのUsedRange.Resize(,8) の範囲を
>    Copyして、新規BookのSheets(1).Range("A1")に貼り付ける。
>
>  '(3)新規BookをCSV形式で保存する
>
>End Sub
こちらを試されてはいかがですか?

せっかく回答いただいているのに、無視して別の方法ばかり
試そうとするのはいかがなものかと思います。

既に試していて、更なるスキルアップの為に知りたいというので
あれば良いのですが・・・・・

【58686】Re:CSV出力について
発言  kanabun  - 08/11/4(火) 17:37 -

引用なし
パスワード
   > →.Print #1, Replace(.Text, vbTab, ",");
> の構文がコンパイル・構文エラーと出てしまいます。
> どうすればよいでしょうか?

うっかりミスでっした。m(_ _)m

 Print #1, Replace(.GetText, vbTab, ",");
           ^^^^^^^

【58689】Re:CSV出力について
質問  お困りです  - 08/11/4(火) 19:40 -

引用なし
パスワード
   ▼kanabun さん:
>> →.Print #1, Replace(.Text, vbTab, ",");
>> の構文がコンパイル・構文エラーと出てしまいます。
>> どうすればよいでしょうか?
>
>うっかりミスでっした。m(_ _)m
>
> Print #1, Replace(.GetText, vbTab, ",");
>           ^^^^^^^
どうもすみませんです。お手数かけて
ここでエラーが出たのですが、”パス名が無効です”
構文は→Open CSVファイルパス For Output As #1のところです。
ご迷惑掛けますがご指導お願いします。

【58690】Re:CSV出力について
発言  kanabun  - 08/11/4(火) 20:37 -

引用なし
パスワード
   ▼お困りです さん:

>ここでエラーが出たのですが、”パス名が無効です”
>構文は→Open CSVファイルパス For Output As #1のところです。
>ご迷惑掛けますがご指導お願いします。

あれ、 CSVファイルパス という変数に CSVファイルパスを代入しないと
ダメですよ〜〜

UserFormに CommandButtonを2つおいて、↓を実験してみてください。

'------------------------------------------- UserForm
Option Explicit

'範囲を新規BookにCopyして xlCSV形式で保存
Private Sub CommandButton1_Click()
  Dim Target As Range
  
  Set Target = ActiveSheet.UsedRange.Resize(, 8)
  Target.Select
  If MsgBox("この範囲をCSV保存しますか?", vbOKCancel) _
                 = vbCancel Then Exit Sub
  
  Dim SaveFile ' CSVファイルパス
  SaveFile = CreateObject("WScript.Shell"). _
       SpecialFolders("DeskTop") & "\T123.Csv"
  SaveFile = Application.GetSaveAsFilename(SaveFile, "CSV,*.csv")
  If VarType(SaveFile) = vbBoolean Then Exit Sub
  
  '(1)新規Bookをシート枚数1枚で 追加する。
  Dim SaveCount&
  Dim NewBook As Workbook
  With Application
    SaveCount = .SheetsInNewWorkbook
    .SheetsInNewWorkbook = 1
    Set NewBook = Workbooks.Add
    .SheetsInNewWorkbook = SaveCount
  End With
  
  '(2) 元のBookの指定シートのUsedRange.Resize(,8) の範囲を _
    Copyして、新規BookのSheets(1).Range("A1")に貼り付ける。
  Target.Copy NewBook.Sheets(1).Range("A1")
  
  '(3)新規BookをCSV形式で保存する
  With NewBook
    .SaveAs SaveFile, xlCSV, Local:=True
    .Save
    .Close
  End With
  MsgBox "CSV形式で保存しました", , SaveFile
  
  Set Target = Nothing
  Set NewBook = Nothing
End Sub


'範囲をクリップボード経由で CSV出力
Private Sub CommandButton2_Click()
  Dim Target As Range
  
  Set Target = ActiveSheet.UsedRange.Resize(, 8)
  Target.Select
  If MsgBox("この範囲をCSV保存しますか?", vbOKCancel) _
                 = vbCancel Then Exit Sub
  
  Dim CsvFile ' CSVファイルパス
  CsvFile = CreateObject("WScript.Shell"). _
       SpecialFolders("DeskTop") & "\TCB123.Csv"
  CsvFile = Application.GetSaveAsFilename(CsvFile, "CSV,*.csv")
  If VarType(CsvFile) = vbBoolean Then Exit Sub
  
  
  '指定範囲をClipboardにCopyして、 _
    TAB区切りをComma区切りに直して出力
  Dim io As Integer
  io = FreeFile()
  Open CsvFile For Output As io
  Target.Copy
  With New DataObject
    .GetFromClipboard
    Print #io, Replace(.GetText, vbTab, ",");
  End With
  Close io
  Application.CutCopyMode = True
  MsgBox "クリップボード経由で保存しました", , CsvFile
  
  Set Target = Nothing

End Sub

※前述のとおり、
 CommandButton2 のクリップボード経由の方は、セルの表示形式のまんま
 出力するものですから、セルの値が 数値データで
 #,##0 のような書式設定がしてあると、 カンマ付きで出力されます。
 CSVファイルは データの区切りがカンマなので、読み取り不能なファイル
 になってしまいます。
 カンマ付き表示のセルがあるときは

>    Print #io, Replace(.GetText, vbTab, ",");


    Print #io, Replace(Replace(.GetText, ",",""), vbTab, ",");

としてください。

【58734】Re:CSV出力について
お礼  お困りです  - 08/11/6(木) 10:35 -

引用なし
パスワード
   ▼kanabun さん:
>▼お困りです さん:
>
>>ここでエラーが出たのですが、”パス名が無効です”
>>構文は→Open CSVファイルパス For Output As #1のところです。
>>ご迷惑掛けますがご指導お願いします。
>
>あれ、 CSVファイルパス という変数に CSVファイルパスを代入しないと
>ダメですよ〜〜
>
>UserFormに CommandButtonを2つおいて、↓を実験してみてください。
>
>'------------------------------------------- UserForm
>Option Explicit
>
>'範囲を新規BookにCopyして xlCSV形式で保存
>Private Sub CommandButton1_Click()
>  Dim Target As Range
>  
>  Set Target = ActiveSheet.UsedRange.Resize(, 8)
>  Target.Select
>  If MsgBox("この範囲をCSV保存しますか?", vbOKCancel) _
>                 = vbCancel Then Exit Sub
>  
>  Dim SaveFile ' CSVファイルパス
>  SaveFile = CreateObject("WScript.Shell"). _
>       SpecialFolders("DeskTop") & "\T123.Csv"
>  SaveFile = Application.GetSaveAsFilename(SaveFile, "CSV,*.csv")
>  If VarType(SaveFile) = vbBoolean Then Exit Sub
>  
>  '(1)新規Bookをシート枚数1枚で 追加する。
>  Dim SaveCount&
>  Dim NewBook As Workbook
>  With Application
>    SaveCount = .SheetsInNewWorkbook
>    .SheetsInNewWorkbook = 1
>    Set NewBook = Workbooks.Add
>    .SheetsInNewWorkbook = SaveCount
>  End With
>  
>  '(2) 元のBookの指定シートのUsedRange.Resize(,8) の範囲を _
>    Copyして、新規BookのSheets(1).Range("A1")に貼り付ける。
>  Target.Copy NewBook.Sheets(1).Range("A1")
>  
>  '(3)新規BookをCSV形式で保存する
>  With NewBook
>    .SaveAs SaveFile, xlCSV, Local:=True
>    .Save
>    .Close
>  End With
>  MsgBox "CSV形式で保存しました", , SaveFile
>  
>  Set Target = Nothing
>  Set NewBook = Nothing
>End Sub
>
>
>'範囲をクリップボード経由で CSV出力
>Private Sub CommandButton2_Click()
>  Dim Target As Range
>  
>  Set Target = ActiveSheet.UsedRange.Resize(, 8)
>  Target.Select
>  If MsgBox("この範囲をCSV保存しますか?", vbOKCancel) _
>                 = vbCancel Then Exit Sub
>  
>  Dim CsvFile ' CSVファイルパス
>  CsvFile = CreateObject("WScript.Shell"). _
>       SpecialFolders("DeskTop") & "\TCB123.Csv"
>  CsvFile = Application.GetSaveAsFilename(CsvFile, "CSV,*.csv")
>  If VarType(CsvFile) = vbBoolean Then Exit Sub
>  
>  
>  '指定範囲をClipboardにCopyして、 _
>    TAB区切りをComma区切りに直して出力
>  Dim io As Integer
>  io = FreeFile()
>  Open CsvFile For Output As io
>  Target.Copy
>  With New DataObject
>    .GetFromClipboard
>    Print #io, Replace(.GetText, vbTab, ",");
>  End With
>  Close io
>  Application.CutCopyMode = True
>  MsgBox "クリップボード経由で保存しました", , CsvFile
>  
>  Set Target = Nothing
>
>End Sub
>
>※前述のとおり、
> CommandButton2 のクリップボード経由の方は、セルの表示形式のまんま
> 出力するものですから、セルの値が 数値データで
> #,##0 のような書式設定がしてあると、 カンマ付きで出力されます。
> CSVファイルは データの区切りがカンマなので、読み取り不能なファイル
> になってしまいます。
> カンマ付き表示のセルがあるときは
>
>>    Print #io, Replace(.GetText, vbTab, ",");
>を
>
>    Print #io, Replace(Replace(.GetText, ",",""), vbTab, ",");
>
>としてください。

すいません遅くなりました。
ご指導ありがとうございます。
少しやってみますので、もしうまくいかないようでしたらまた質問いたしますので
よろしくお願いします。

【58747】Re:CSV出力について
お礼  お困りです  - 08/11/6(木) 14:30 -

引用なし
パスワード
   ▼kanabun さん:
>▼お困りです さん:
>
>>ここでエラーが出たのですが、”パス名が無効です”
>>構文は→Open CSVファイルパス For Output As #1のところです。
>>ご迷惑掛けますがご指導お願いします。
>
>あれ、 CSVファイルパス という変数に CSVファイルパスを代入しないと
>ダメですよ〜〜
>
>UserFormに CommandButtonを2つおいて、↓を実験してみてください。
>
>'------------------------------------------- UserForm
>Option Explicit
>
>'範囲を新規BookにCopyして xlCSV形式で保存
>Private Sub CommandButton1_Click()
>  Dim Target As Range
>  
>  Set Target = ActiveSheet.UsedRange.Resize(, 8)
>  Target.Select
>  If MsgBox("この範囲をCSV保存しますか?", vbOKCancel) _
>                 = vbCancel Then Exit Sub
>  
>  Dim SaveFile ' CSVファイルパス
>  SaveFile = CreateObject("WScript.Shell"). _
>       SpecialFolders("DeskTop") & "\T123.Csv"
>  SaveFile = Application.GetSaveAsFilename(SaveFile, "CSV,*.csv")
>  If VarType(SaveFile) = vbBoolean Then Exit Sub
>  
>  '(1)新規Bookをシート枚数1枚で 追加する。
>  Dim SaveCount&
>  Dim NewBook As Workbook
>  With Application
>    SaveCount = .SheetsInNewWorkbook
>    .SheetsInNewWorkbook = 1
>    Set NewBook = Workbooks.Add
>    .SheetsInNewWorkbook = SaveCount
>  End With
>  
>  '(2) 元のBookの指定シートのUsedRange.Resize(,8) の範囲を _
>    Copyして、新規BookのSheets(1).Range("A1")に貼り付ける。
>  Target.Copy NewBook.Sheets(1).Range("A1")
>  
>  '(3)新規BookをCSV形式で保存する
>  With NewBook
>    .SaveAs SaveFile, xlCSV, Local:=True
>    .Save
>    .Close
>  End With
>  MsgBox "CSV形式で保存しました", , SaveFile
>  
>  Set Target = Nothing
>  Set NewBook = Nothing
>End Sub
>
>
>'範囲をクリップボード経由で CSV出力
>Private Sub CommandButton2_Click()
>  Dim Target As Range
>  
>  Set Target = ActiveSheet.UsedRange.Resize(, 8)
>  Target.Select
>  If MsgBox("この範囲をCSV保存しますか?", vbOKCancel) _
>                 = vbCancel Then Exit Sub
>  
>  Dim CsvFile ' CSVファイルパス
>  CsvFile = CreateObject("WScript.Shell"). _
>       SpecialFolders("DeskTop") & "\TCB123.Csv"
>  CsvFile = Application.GetSaveAsFilename(CsvFile, "CSV,*.csv")
>  If VarType(CsvFile) = vbBoolean Then Exit Sub
>  
>  
>  '指定範囲をClipboardにCopyして、 _
>    TAB区切りをComma区切りに直して出力
>  Dim io As Integer
>  io = FreeFile()
>  Open CsvFile For Output As io
>  Target.Copy
>  With New DataObject
>    .GetFromClipboard
>    Print #io, Replace(.GetText, vbTab, ",");
>  End With
>  Close io
>  Application.CutCopyMode = True
>  MsgBox "クリップボード経由で保存しました", , CsvFile
>  
>  Set Target = Nothing
>
>End Sub
>
>※前述のとおり、
> CommandButton2 のクリップボード経由の方は、セルの表示形式のまんま
> 出力するものですから、セルの値が 数値データで
> #,##0 のような書式設定がしてあると、 カンマ付きで出力されます。
> CSVファイルは データの区切りがカンマなので、読み取り不能なファイル
> になってしまいます。
> カンマ付き表示のセルがあるときは
>
>>    Print #io, Replace(.GetText, vbTab, ",");
>を
>
>    Print #io, Replace(Replace(.GetText, ",",""), vbTab, ",");
>
>としてください。

どうもありがとうございます。
無事に出来る様になりました。
また、よろしくお願いします。

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