Excel macro CSV issue

Question

Im using макрос excel, который генерирует CSV-файл со всеми моими данными для загрузки в gmail как контакты. Когда файл загружается в контакты gmail, номер мобильного телефона и рабочий номер поступают правильно, но имя человека входит в поле примечаний как «Имя: Яш». Im прикрепляет образец csv-файла, который генерируется макросом.

Download Sample CSV HERE

им с помощью следующих макросов для генерации CSV-:

Sub getcsv() 
Application.ScreenUpdating = False 
csvnewsheet 
Dim myRange As Range 
Dim NumRows As Integer 
Set myRange = ActiveSheet.Range("A:A") 
NumRows = Application.WorksheetFunction.CountA(myRange) 
    Range("E1").Select 
    ActiveCell.FormulaR1C1 = "First Name" 
    Range("E2").Select 
    ActiveCell.FormulaR1C1 = "=CONCATENATE(Reports!R[5]C2,"" "",Reports!R[5]C1)" 
    Range("E2").Select 
    Selection.AutoFill Destination:=Range("E2:E" & NumRows + 1) 
    Range("E2:E3").Select 
    Columns("E:E").EntireColumn.AutoFit 
    hide_format 
    Exporttocsv 
    DelSht 
    Application.ScreenUpdating = True 
End Sub 


Sub hide_format() 
' 
' hides name & place columns and then removed the formatting 
' 

' 
    Columns("A:A").Select 
    Selection.Delete Shift:=xlToLeft 
    Selection.Delete Shift:=xlToLeft 
    Columns("C:C").Select 
    Selection.Cut 
    Columns("A:A").Select 
    Selection.Insert Shift:=xlToRight 
    Range("A1").Select 
    Range(Selection, Selection.End(xlDown)).Select 
    Range(Selection, Selection.End(xlToRight)).Select 
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone 
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone 
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone 
    Selection.Borders(xlEdgeTop).LineStyle = xlNone 
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone 
    Selection.Borders(xlEdgeRight).LineStyle = xlNone 
    Selection.Borders(xlInsideVertical).LineStyle = xlNone 
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone 
    With Selection.Interior 
     .Pattern = xlNone 
     .TintAndShade = 0 
     .PatternTintAndShade = 0 
    End With 
End Sub 



    Sub csvnewsheet() 
    Dim myRange As Range 
    Dim NumRows As Integer 
    Set myRange = Worksheets("Reports").Range("A:A") 
    NumRows = Application.WorksheetFunction.CountA(myRange) + 3 
    Sheets.Add.Name = Worksheets("Reports").Range("A2").Value & "_CSV" 
    Worksheets("Reports").Range("A6:D" & NumRows).Copy Destination:=Worksheets(Worksheets("Reports").Range("A2").Value & "_CSV").Range("A1") 
    Worksheets(Worksheets("Reports").Range("A2").Value & "_CSV").Columns("A:D").AutoFit 
    End Sub 



    Sub Exporttocsv() 
    Dim MyPath As String 
    Dim MyFileName As String 

    MyFileName = Worksheets("Reports").Range("A2").Value & "_CSV" 
    If Not Right(MyFileName, 4) = ".csv" Then MyFileName = MyFileName & ".csv" 

    Worksheets(Worksheets("Reports").Range("A2").Value & "_CSV").Copy 

    With Application.FileDialog(msoFileDialogFolderPicker) 
     .Title = "Select a Folder to Save the CSV" 
     .AllowMultiSelect = False 
     .InitialFileName = "" '<~~ The start folder path for the file picker. 
     If .Show <> -1 Then GoTo NextCode 
     MyPath = .SelectedItems(1) & "\" 
    End With 

    NextCode: 

    With ActiveWorkbook 
     .saveas Filename:=MyPath & MyFileName, FileFormat:=xlCSV, CreateBackup:=False 
     .Close False 
    End With 
    End Sub 


    Sub DelSht() 
     Application.DisplayAlerts = False 
     Sheets(Worksheets("Reports").Range("A2").Value & "_CSV").Delete 
     Application.DisplayAlerts = True 
    End Sub 

Этот макрос создает новый лист с данными, то будет делать необходимые изменения и сохранить в формате CSV, а затем удалить это лист.

я не знаю, где им будет не так ... но имена контактов просто не приходят в Gmail ... ив пробовал различные другие методы, но это все еще не работало ...

Пожалуйста, помогите!

Answer 1

Вот как Gmail предлагает формат CSV-файла.

-

это то, как вы ваш отформатирована.

Вы можете иметь это отформатирован путь Gmail предлагает.