Vb.net 如何通过VB在Excel中移动列

Vb.net 如何通过VB在Excel中移动列,vb.net,excel,Vb.net,Excel,假设我在excel中有一个工作表,它是在Vb中自动生成的。 列的顺序由用户指定。 假设正常订单为Ser No#订单无客户订单无Pcs数量价格 如果订单更改,请说明服务编号#客户订单编号无件数量价格 我需要再次写下整个代码。是否有使用vb代码移动excel列的方法。是的,您可以使用vb代码对列进行排序 检查下面的示例,您可以根据需要更改名为“Last Name”和“First Name”的列的顺序 Dim oExcel As Object Dim oBook As Object

假设我在excel中有一个工作表,它是在Vb中自动生成的。 列的顺序由用户指定。 假设正常订单为Ser No#订单无客户订单无Pcs数量价格

如果订单更改,请说明服务编号#客户订单编号无件数量价格


我需要再次写下整个代码。是否有使用vb代码移动excel列的方法。

是的,您可以使用vb代码对列进行排序

检查下面的示例,您可以根据需要更改名为“Last Name”和“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

我建议您将更改后的订单用作自定义列表;然后根据新列表水平排列数据,即根据新列表水平排列数据