转贴 Dim Irow, Icol As Integer '行列值 Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Dim FilePath As StringFilePath = App.Path + "\temp.xls" Set xlApp = CreateObject("Excel.Application") '创建excel对象 Set xlBook = xlApp.Workbooks.Open(FilePath) '打开Excel工作薄文件 Set xlSheet = xlBook.Worksheets(1) '打开Excel工作表xlSheet.Cells(Irow, Icol).Value ="AAA" '赋值 xlBook.Save '保存 Set xlApp = Nothing '交还控制给Excel
專案->設定使用元件->物件->Microsoft Excel工作表
(繁體版的名稱﹐適當變通一下)
打个比方 一台电脑有一张参数表 有多台电脑 就有多张参数表 如何建立相关数据表?
建立好后又如何使其中某台电脑的参数显示在EXCEL 工作表 中?
在显示出来的 EXCEL 工作表中能否实现修改回传数据库?
Dim Irow, Icol As Integer '行列值
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim FilePath As StringFilePath = App.Path + "\temp.xls"
Set xlApp = CreateObject("Excel.Application") '创建excel对象
Set xlBook = xlApp.Workbooks.Open(FilePath) '打开Excel工作薄文件
Set xlSheet = xlBook.Worksheets(1) '打开Excel工作表xlSheet.Cells(Irow, Icol).Value ="AAA" '赋值
xlBook.Save '保存
Set xlApp = Nothing '交还控制给Excel
实现了连接后又该如何实现修改表中单元格内容及回传数据库?
兩種方法﹐參考一下:
1. 直接將數據庫連接到Excel,做為Excel的數據源.(格式簡單規則﹐不靈活)
2. 用Recordset填充.(麻煩點﹐不過很靈活)
加油……