1、我给你个简单的例子,假设有文件c:1.xls要在VB中操作Excel,需要引用Excel对象模型方法,在菜单里选择工程 - 引用,在窗口里勾选 Microsoft Excel XX.X Object Library其中,XX.X取决于你安装的Office的版本号Private Sub Command6_Click()Dim excel_App As Excel.ApplicationDim excel_Book As Excel.WorkbookDim excel_sheet As Excel.Worksheet启动ExcelSet excel_App = CreateObject(Excel
2、.Application) 引用程序对象实例设置Excel为不可见excel_App.Visible = False打开文件Set excel_Book = excel_App.Workbooks.Open(C:1.XLS) 工作簿实例Set excel_sheet = excel_Book.Worksheets(Sheet1) 数据表实例excel_sheet.Range(C1).Value = 你好! 设置单元格C1的值为你好!excel_sheet.Range(A1).Value = 100 设置单元格A1的值为100excel_sheet.Range(A2).Value = 9 设置单
3、元格A2的值为9excel_sheet.Range(A3).Value = excel_sheet.Range(A1).Value + excel_sheet.Range(A2).Value 计算关闭Excel文件 Set excel_sheet = Nothing excel_App.ActiveWorkbook.Close savechanges:=True 保存对EXCELL进行更改。 Set excel_Book = Nothing excel_App.Quit Set excel_App = NothingEnd Sub追问你好,高手!我的想法是这样的,编一个软件,这个软件用exce
4、l表格当做它的数据库。这个软件只能对表格进行读写操作。比如:当text1读入A行a内容时,text2自动读取A行b内容,代码里不要对表格进行赋值。回答难道你没看懂,读取单元格数据的方法?不过,我没理解你的:当text1读入A行a内容时,text2自动读取A行b内容 何谓:A行a内容追问A行a内容就是:A 行(记录),a 列(字段)回答那么我举例:首先设行用H变量,列用L1和L2变量,H = 20L1 = AL2 = BText1.Text = excel_sheet.Range(L1 & Cstr(H).Value Text2.Text = excel_sheet.Range(L2 & Cstr(H).Value