vb6怎么添加excel表格控件

1.VB6.0怎样使用自带控件或者microsoft自带控件设计可编辑的exl表格?

这个用msflexgrid表格即可，编辑控件可以用textbox等。2113

1. 当某个cell获得焦点，可以把事先放在窗口上的5261隐藏控件例如textbox移动到这个cell上（要4102改变为和cell同样大小），再让这个控件可见。1653

2. 利用控件回的change或其他事件捕获控件值或显示的改变，把值写到cell里完成编辑

3. 当cell失去焦点时，上面的控答件隐藏。

4. 注意表格滚动时，及时隐藏编辑控件。

2.vb6.0如何操作excel

修改文件目录你可以直接改变量p的值，改变单页格需要改变cells(row,col)中的row,col参数，对于打印机你首先要读取你本地所有打印机的名称，你可以把打印机设置成默认，然后输出objExcel.Application.ActivePrinter的值，读取这些值后在设置objExcel.Application.ActivePrinter的值，即设置默认打印机，比较麻烦，程序里我改了一点就是打开excel文件后直接调出打印设置窗口，你自己选择打印机打印 下面代码已经改成自动保存了 Private Sub Command1_Click() p = "c:\\book1.xls" '这里改你文件的路径 Set objexcel = CreateObject("Excel.Application") '创建excel工程 Set xlBook = objexcel.Workbooks.Open(p) '打开d盘abc.xls Set xlsheet = xlBook.Worksheets("sheet1") '打开表sheet1 objexcel.Visible = True '设置excel可见或不可见 xlsheet.cells(1, 1) = "123" 'cells(1,1)表示A1，第一行第一列，B1表示为cells(1,2) xlBook.saved = True '不提示是否保存，直接保存文件 objexcel.ActiveWorkbook.Save On Error GoTo lap1 'objExcel.ActiveWindow.SelectedSheets.PrintOut , , , False '直接通过默认打印机打印这个表 objexcel.Application.Dialogs(8).Show '调出excel打印设置窗口 lap1: objexcel.Application.Quit '退出excel程序 Set xlsheet = Nothing Set xlBook = Nothing Set objexcel = Nothing End Sub。

3.vb6.0,如何把数据导入excel

假设你的两个数据为m,n

Dim D_Ex As Object

Dim D_ExBook As Object

Dim D_ExSheet As Object

Set D_Ex = CreateObject("Excel.Application")

Set D_ExBook = D_Ex.Workbooks.Open(FullName) 'FullName 是你excel的地址及文件名，如"C:\1.xls"。

Set D_ExSheet = D_ExBook.Worksheets(1)

D_Ex.Visible = False true也行，false看不见excel

D_Ex.Cells(i , 1).Value=m

D_Ex.Cells(i , 2).Value=n i是你循环的次数，循环一次i加1

D_ExBook.Save 保存

D_ExBook.Close 关闭

D_Ex .Quit 退出

就是这些，个人建议不要每次都打开和关闭excel，你可以在程序开始的时候打开excel，在不需要存数据的时候关闭，节省内存。也可以把数据存入一个TXT内，统一转换。