Sheet1.irکپی کردن

Option Explicit
Sub Export_CSV()
    '========== S h e e t 1 . i r =======================
    Dim csvFile As String
    Dim rng As Range
    Dim rngVal As Variant
    Dim i, j As Long
    
    csvFile = GetFolder() & "\" & "MyExport.csv"
    Set rng = Selection
    Open csvFile For Output As #1
    '
    For i = 1 To rng.Rows.Count
        For j = 1 To rng.Columns.Count
            rngVal = rng.Cells(i, j).Value
            If j = rng.Columns.Count Then
                Write #1, rngVal
            Else
                Write #1, rngVal,
            End If
        Next j
    Next i
    Close #1
End Sub

Private Function GetFolder() As String
    '========== S h e e t 1 . i r =======================
    Dim fldr As FileDialog
    Dim sItem As String
    Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
    With fldr
        .Title = "Select a Folder"
        .AllowMultiSelect = False
        .InitialFileName = Application.DefaultFilePath
        If .Show <> -1 Then GoTo NextCode
            sItem = .SelectedItems(1)
    End With
    NextCode:
        GetFolder = sItem
    Set fldr = Nothing
End Function

Sheet1.ir