从spreadsheet导入excel的问题

Question

我知道怎么做，我刚刚做这个东西
要的话
我的信箱：[email protected]
给我确认信，告诉我你的信箱，我发给你。

Answer 1

dandy1437(橙色回味) ,谢谢先[email protected]

Answer 2

Dim ex_app As Excel.Application
Dim ex_sht As Excel.Worksheet
Dim C_col As Integer
Dim C_Row As Integer
     
With C_grid
    Screen.MousePointer = 11
    .Row = 0: .Col = 1
    .Row2 = .MaxRows: .Col2 = .MaxCols
    .Action = 2
    .Action = 22
    .Action = 14
    
    Set ex_app = CreateObject("excel.application")
        ex_app.Workbooks.Add
    Set ex_sht = ex_app.ActiveSheet
        ex_app.Visible = True
        ex_sht.Range("A2").Select
        ex_sht.Paste
        ex_sht.Range("A2").Select

Answer 3

谢谢weiqunchen,但是我问的是spreadsheet对象,可能是没人知道了,把分结给你算了