csv関連

Public Sub CsvToClipBoard()
    Dim Target As String
    Dim fso As New FileSystemObject
    Dim f As TextStream
    Target = Application.GetOpenFilename("Csvファイル,*.csv")
    If Target = "False" Then Exit Sub
    Set f = fso.OpenTextFile(Target)
    ClipBoadCopy Replace(f.ReadAll, ",", vbTab)
    f.Close
End Sub
Public Sub RangeToCsv()
    Dim Target As String
    Target = Application.GetSaveAsFilename(FileFilter:="Csvファイル,*.csv")
    If Target = "False" Then Exit Sub
    Dim iRow As Integer
    Dim iColmn As Integer
    Dim rtnString As String
    Dim strLine As String
    Dim fso As New FileSystemObject
    For iRow = Selection(1).Row To Selection(Selection.count).Row
        For iColmn = Selection(1).Column To Selection(Selection.count).Column
            If iColmn = Selection(1).Column Then
                strLine = Cells(iRow, iColmn).Value
            Else
                strLine = strLine & "," & Cells(iRow, iColmn).Value
            End If
        Next iColmn
        If iRow = Selection(1).Row Then
            rtnString = strLine
        Else
            rtnString = rtnString & vbCrLf & strLine
        End If
    Next iRow
   
    With fso.CreateTextFile(Target)
        .WriteLine rtnString
        .Close
    End With
End Sub