Question

说我是excel中的工作表，它是在Vb中自动生成的。列的顺序是用户指定的。说正常订单是Ser No＃订单没有客户订单没有Pcs数量价格。

如果订单发生变化，请说服务号码＃客户订单订单否否Pcs数量价格。

我要再次写下整个代码。有没有办法使用vb代码移动excel列。

Answer 1

是的，您可以使用vb代码订购该列。

检查以下示例，您可以在其中更改名为＆＃34;姓氏＆＃34;的列的顺序。和＆＃34;名字＆＃34;如你所愿

   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

如何通过VB在Excel中移动列

1 个答案: