如何调用一个已经定制好格式的Excel表，并把数据填上去啊？急，在线等待

Question

同上

Answer 1

既然是定制的格式，那你在对应的单元格中填入数据就行了Private Sub Command1_Click()
    Dim xlapp As New Excel.Application
    Dim xlbook  As Excel.Workbook
    Dim xlsheet As Excel.Worksheet
    
    xlapp.Caption = "test"
    Set xlbook = xlapp.Workbooks.Add
    Set xlsheet = xlbook.Worksheets(1)
    
    xlapp.Range("A1").Select
    xlapp.ActiveCell.FormulaR1C1 = "asdf"
    xlapp.Range("C6").Select
    ActiveCell.FormulaR1C1 = "asdf"    xlapp.Visible = True
End Sub

Answer 2

我的意思是如何打开或调用个个Excel表啊

Answer 3

呵呵，这样
Private Sub Command1_Click()
    Dim xlapp As New Excel.Application
    Dim xlbook  As Excel.Workbook
    Dim xlsheet As Excel.Worksheet
    
    xlapp.Caption = "test"
    Set xlbook = xlapp.Workbooks.Open("d:\aa.xls")    
    xlapp.Range("A1").Select
    xlapp.ActiveCell.FormulaR1C1 = "asdf"
    xlapp.Range("C6").Select
    ActiveCell.FormulaR1C1 = "asdf"    xlapp.Visible = True
End Sub

Answer 4

控件绑定到指定单元格 这个方法也有
叫DDE技术，但是性能很低，也不是很实用，所以很少这样用

Answer 5

dim x1app as object
dim x1wbook as object
dim x1wsheet as object
set x1app=createobject("excel.application")
set x1wbook=x1app.workbooks.open("所需要格式的文件")
至于怎么添加你可以在用excel在宏编辑器中察看语句

Answer 6

SoHo_Andy(冰) 
    xlapp.Range("A1").Select
    xlapp.ActiveCell.FormulaR1C1 = "asdf"
    xlapp.Range("C6").Select
    ActiveCell.FormulaR1C1 = "asdf"
请问，假如是有多条记录，譬如从A1到An,n的值很大（把数据库表中的某个字段的数据都取出来），那应该怎么做呢？谢谢！