怎么利用<em>VB</em>向指定的EXCEL插入数据；-vb excel插入行,vb编辑ex

好像不用新建列吧！Excel本身抄既有很多行列的，直袭接使用就行了。不过Sheet倒是需要新建zd。
Set XlsSheet = ExcelApp.ActiveWorkbook.Worksheets.Add
这是新建Excel表。
XlsSheet.Cells(i, j) = i
这行表示对XlsSheet表的i行j列赋值行数i。

Public Sub WriteResToExcel() '写处理后的数据到新的Excel的过程
    Dim xlApp As Excel.Application '定义一个Excel应用
    Dim xlBook As Excel.Workbook '定义一个Excel Book
    Dim xlSheet As Excel.Worksheet '定义一个Excel Sheet
        '下面是取出打开的文件名后面添加一个时间戳作为新的文件名，该文件存放636f7079e79fa5e98193339路径是程序的同目录下
    DstFile = App.Path & "\" & Mid(FileNameE, 1, Len(FileNameE) - 5) & "_" & Format(Now, "yyyyMMddhhmmss") & ".xlsx"
    '将打开的文件拷贝一份到程序同目录下的文件夹中，并重新命名为上面的文件名字
    FileCopy Fpath, DstFile
    Set xlApp = New Excel.Application
    xlApp.Visible = False '不显示打开的Excel
    Set xlBook = xlApp.Workbooks.Open(DstFile)         '打开EXCEL工作簿
    Set xlSheet = xlBook.Worksheets(1)         '打开EXCEL工作表
    Dim i As Integer
    xlSheet.Cells(1, Rcount) = Ds(1, Rcount) '把数组ds(1,rcount)这个数据写入Excel中，写入的内容其实就是标题“计算结果”
    For i = 2 To Hcount - 1 '再把数组ds(i,Rcount)的数据依次写入Excel表格中
        xlSheet.Cells(i, Rcount) = GetTimeSl(Ds(i, Rcount))
    Next i
    xlBook.Close (True) '关闭并保存
    'xlApp.DisplayAlerts = False         '关闭EXCEL不提示保存
    xlApp.Quit   '关闭EXCEL
    Set xlBook = Nothing '释放设置的资源
    Set xlSheet = Nothing
    Set xlApp = Nothing
    
End Sub

VB可将使用Object 数据类型对EXCEL对象进行引用。

• Object 数据类型，Object 变量存储为 32 位（4
  个字节）的地址形式，其为对象的引用。利用 Set 语句，声明为 Object
  的变量可以赋值为任何对象的引用。

  注意 虽然以 Object
  类型声明的变量足以适应包含对各种对象的引用，但是绑定到变量引用的对象总是在晚期（运行时）绑定。要强迫在早期（编译时间）绑定的话，须将对象的引用赋值给用特定类名称声明的变量。

• 新建VB的EXE工程，使用如下代码e69da5e6ba90e799bee5baa6362在第一行第一列写入vb操作excel：

  Option Explicit

      Dim xlapp As Object

      Dim xlBook As Object

      Dim xlSheet As Object

      Dim A As String

  
  

  Private Sub Command1_Click()

      Set xlapp = CreateObject("excel.application")

      xlapp.Visible = True

      Set xlBook = xlapp.Workbooks.Add

      Set xlSheet = xlBook.worksheets(1)

      A = "vb操作excel"

      xlSheet.Cells(1, 1) = A

  End Sub
  

虽然只有10分，但是我也不copy介意分享我知道的。
1,工程中引用 Microsoft Excel xx.x Object Library .

2,创建EXCEL的实例
Dim xls As Excel.Application
Dim sheet1 As Worksheet
Set xls = CreateObject("Excel.Application")'也可以获取打开的Set xls = GetObject(, "Excel.Application")
xls.Visible = True
剩下的不懈出来了，如果你zd有点VB和VBA的基础就能自己写出来，现在在VB中输入XLS.就跟跟在VBA中输入Application.相同了.