Excel для Mac, User-select, Import CSV для конкретного листа

Question

У меня возникла проблема с созданием макроса, который позволит пользователю выбрать CSV, а затем импортировать его в конкретный рабочий лист.

Я нашел this script, который импортирует выбранный пользователем файл в новую книгу, и попытался изменить его для моих потребностей - Но без везения до сих пор ..

Это мой сценарий до сих пор:

Sub Select_File_Or_Files_Mac() 
    Dim MyPath As String 
    Dim MyScript As String 
    Dim MyFiles As String 
    Dim MySplit As Variant 
    Dim N As Long 
    Dim NR As Long 
    Dim Fname As String 
    Dim mybook As Excel.Workbook 
    Dim mysheet As Excel.Worksheet 

    On Error Resume Next 
    MyPath = MacScript("return (path to documents folder) as String") 
    'Or use MyPath = "Macintosh HD:Users:YourUserName:Desktop:TestFolder:" 

    MyScript = "set applescript's text item delimiters to (ASCII character 10) " & vbNewLine & _ 
      "set theFiles to (choose file of type " & _ 
      " (""public.comma-separated-values-text"") " & _ 
      "with prompt ""Please select a file or files"" default location alias """ & _ 
      MyPath & """ multiple selections allowed true) as string" & vbNewLine & _ 
      "set applescript's text item delimiters to """" " & vbNewLine & _ 
      "return theFiles" 

    MyFiles = MacScript(MyScript) 
    On Error GoTo 0 

    If MyFiles <> "" Then 
     With Application 
      .ScreenUpdating = False 
      .EnableEvents = False 
     End With 
    MySplit = Split(MyFiles, Chr(10)) 
     For N = LBound(MySplit) To UBound(MySplit) 

      'Get file name only and test if it is open 
      Fname = Right(MySplit(N), Len(MySplit(N)) - InStrRev(MySplit(N), _ 
      Application.PathSeparator, , 1)) 

       On Error Resume Next 
       Set mysheet = ThisWorkbook.Sheets("Rapport") 
       On Error GoTo 0 
      Next 

Worksheets("Rapport").Activate 

NR = mysheet.Range("A" & Rows.Count).End(xlUp).Row + 1 

With mysheet.QueryTables.Add(Connection:="TEXT;" & Fname, _ 
     Destination:=mysheet.Range("A" & NR)) 
     .Name = "CSV" & Worksheets.Count + 1 
     .FieldNames = True 
     .RowNumbers = False 
     .FillAdjacentFormulas = False 
     .RefreshOnFileOpen = False 
     .BackgroundQuery = True 
     .RefreshStyle = xlInsertDeleteCells 
     .SavePassword = False 
     .SaveData = True 
     .AdjustColumnWidth = True 
     .TextFilePromptOnRefresh = False 
     .TextFilePlatform = xlMacintosh 
     .TextFileStartRow = 1 
     .TextFileParseType = xlDelimited 
     .TextFileTextQualifier = xlTextQualifierDoubleQuote 
     .TextFileConsecutiveDelimiter = True 
     .TextFileTabDelimiter = True 
     .TextFileSemicolonDelimiter = False 
     .TextFileCommaDelimiter = True 
     .TextFileSpaceDelimiter = True 
     .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1) 
End With 

       End If 

End Sub 

Примечание: Лист, в который вставлен CSV, называется «Rapport» atm.

Прямо сейчас я использую Apple Script заранее, чтобы запустить CSV и заменить «;» с «,» - так и любой способ реализации этого, был бы высоко оценен!

Спасибо!

Answer 1

я бы просто открыть файл, а затем использовать функцию TextToColumns Excel для разделения полей в столбцы:

'Open the text file with semicolon delimiters 
Workbooks.Open Filename:=Fname 

'Split the fields separated by semicolons out into columns 
Columns("A:A").TextToColumns Destination:=Range("A1"), _ 
          DataType:=xlDelimited, _ 
          TextQualifier:=xlDoubleQuote, _ 
          ConsecutiveDelimiter:=False, _ 
          Tab:=False, _ 
          Semicolon:=True, _ 
          Comma:=False, _ 
          Space:=False, _ 
          Other:=False