Как перемещать столбцы в Excel через VB

Question

Скажите, что это рабочий лист в excel, который автоматически генерируется в Vb. Порядок столбцов указан пользователем. Скажите, что нормальный заказ Ser No # Order No Заказ клиента No Pcs Qty Price.

IF заказывать изменение сказать Ser No # Заказ клиента Заказ Нет Нет Кол-во Цена.

Я хочу снова записать весь код. Есть ли способ переместить столбец excel, используя код vb.

Answer 1

Да, вы можете заказать столбец, используя код vb.

Проверьте пример ниже, где вы можете изменить порядок столбцов, названных как «Фамилия» и «First Name», как вы хотите

Dim oExcel As Object 
    Dim oBook As Object 
    Dim oSheet As Object 

    'Start a new workbook in Excel 
    Set oExcel = CreateObject("Excel.Application") 
    Set oBook = oExcel.Workbooks.Add 


    'Add data to cells of the first worksheet in the new workbook 
    Set oSheet = oBook.Worksheets(1) 
    oSheet.Range("A1").Value = "Last Name" 
    oSheet.Range("B1").Value = "First Name" 
    oSheet.Range("A2").Value = "Doe" 
    oSheet.Range("B2").Value = "John" 

    'Save the Workbook and Quit Excel 
    oBook.SaveAs "C:\Book1.xls" 
    oExcel.Quit