EXCELからテキストに出力する！

Sub TXT_OUTPUT()

    fnsave = "d:\work\出力結果.txt" 'アウトプットの場所
    numff = FreeFile
    Open fnsave For Output As #numff
    temp = ""
    For i = 1 To 10
'各セルをカンマ、改行文字を間に挟み、一つの文字列として連結
        temp = temp & Cells(i, 1) & ","  & Cells(i, 1) & char(13) & char(10)
    Next i
'文字列をファイルに出力する。
    Print #numff, temp
    Close #numff

End Sub

Sub Seve_As() '名前をつけて保存

Sub Seve_As() '名前をつけて保存「ファイル名月日.xlsx」

    Dim Motoneta As String

    

    Motoneta = ActiveWorkbook.Name 'ファイル名のみ

    Application.DisplayAlerts = False '確認メッセージを出さない

    Workbooks(Motoneta).SaveAs Filename:=("ファイル名" & Format(Date, "mmdd") & ".xlsx"), FileFormat:=xlOpenXMLWorkbook'ファイル名mmdd.xlsxで保存

End Sub

Sub 空白のセル行を削除()

Sub 空白のセル行を削除()

  n = Cells(Rows.Count, "A").End(xlUp).Row
    Cells.Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:="<>"
    Rows("1:" & n).Select
    Selection.Copy
    Sheets.Add
    Rows("1:1").Select
    ActiveSheet.Paste
    Range("A1").Select

End Sub
------------------------------------
削除だと時間がかかるので、新規シートを作成してネタがあるものをコピペする。

ファイル名に使えない文字を変換！

Sub File_Name() 'ファイル名に使えない文字を変換-1

  Dim Rng As Range

  Set Rng = Range("1:1").Find("タイトル")
    Rng.EntireColumn.Select
   
    Selection.Replace What:="~?", Replacement:="_"
    Selection.Replace What:="/", Replacement:="／"
    Selection.Replace What:="[", Replacement:="［"
    Selection.Replace What:="]", Replacement:="］"
    Selection.Replace What:=">", Replacement:="＞"
    Selection.Replace What:="<", Replacement:="＜"
    Selection.Replace What:="~*", Replacement:="＊"
    Selection.Replace What:=":", Replacement:="："
    Selection.Replace What:=";", Replacement:="；"
    Selection.Replace What:="\", Replacement:="_"
    Selection.Replace What:="""", Replacement:="_"
    Selection.Replace What:=vbTab, Replacement:="_"
   
End Sub

半角を全角にしたりとかいろいろ、、