[[20160425132006]]　『PERSONAL.XLSBをXLSXで使用する方法』（Ty）　ページの最後に飛ぶ

『PERSONAL.XLSBをXLSXで使用する方法』（Ty）

 PERSONAL.XLSBで　XLS→TEXTFileを作成しています。
 このマクロで　XLSXで使用する方法がありましたら
 お教えください。

＜使用 Excel：unknown、使用 OS：unknown ＞

 ＞XLSXで使用する方法

 この意味が不明瞭ですけど、

 そのブックにマクロ実行ボタンでも作成して、

 「PERSONAL.XLSBのXLS→TEXTFile作成する」と言うマクロを登録したら出来るのでは？

 ・・・という話ではない？

（半平太） 2016/04/25(月) 13:47

 いつもお世話になっています。
 ありがとうございます。

 私の勘違いでした。
 XLSX→TEXTFile　作成できていました。
 その時に　～Ｓファイル名.XLSX　という半透明ファイルもでるんですが、
 でなくする方法は　ありますでしょうか？

 Sub text()
  Dim TextFileName As String
  Dim rg As Range
  Application.ScreenUpdating = False
    Range("B3:B20").Select
    Selection.Replace What:=" ", Replacement:=""
    Selection.Replace What:="　", Replacement:=""
    Range("A1").Select
  Set rg = Range("A2").CurrentRegion
  TextFileName = ActiveWorkbook.Path & "\sample.txt"
  Open TextFileName For Output As #1
  For i = 1 To 30
        Print #1, rg.Cells(i, 1).text & rg.Cells(i, 2).text _
        & rg.Cells(i, 3).text & rg.Cells(i, 4).text _
        & rg.Cells(i, 5).text & rg.Cells(i, 6) _
        & rg.Cells(i, 7) & rg.Cells(i, 8) _
        & rg.Cells(i, 9) & rg.Cells(i, 10) _
        & rg.Cells(i, 11) & rg.Cells(i, 12) _
         & rg.Cells(i, 13) & rg.Cells(i, 14)
  Next
  Close #1
 End Sub
（Ty） 2016/04/25(月) 14:14

 ＞ その時に　～Ｓファイル名.XLSX　という半透明ファイルもでるんですが、

 ちょっと、状況が分かりません。他の回答者のレスをお待ちください。

（半平太） 2016/04/25(月) 15:19

コメント返信：

[ 一覧(最新更新順) ]

[[20160425132006]] 『PERSONAL.XLSBをXLSXで使用する方法』（Ty） ページの最後に飛ぶ

[[20160425132006]]　『PERSONAL.XLSBをXLSXで使用する方法』（Ty）　ページの最後に飛ぶ