vb6.0如何操作excel

vb6.0 操作完Excel表格后，怎么保存啊？~

objExl.ActiveWorkbook.SaveAs "C:\Demo1.xls" 另存
objExl.ActiveWorkbook.Close fasle 关闭

Dim xlapp As Excel.Application 'Excel对象Dim xlbook As Excel.Workbook '工作簿Dim xlsheet As Excel.Worksheet '工作表Dim xlrange As Excel.RangePrivate Sub Command1_Click()Set xlapp = CreateObject("excel.application") '第一层Set xlbook = xlapp.Workbooks.Open("d:\123.xlsx")
你更新，我也补充下：

Dim xlapp As Excel.Application 'Excel对象Dim xlbook As Excel.Workbook '工作簿Dim xlsheet As Excel.Worksheet '工作表Dim xlrange As Excel.RangePrivate Sub Command1_Click()Set xlapp = CreateObject("excel.application") '第一层Set xlbook = xlapp.Workbooks.Open("E:\工作\VB软件\有机合成设备\11\评分.xlsx ")End Sub
需要工程引用，已测试，无问题见图：

修改文件目录你可以直接改变量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

vb6.0编写程序读取excel文件(在电脑没有装excel软件的情况下)_百度知 ...
答：用ADO打开Excel的代码（关键在于连接字符串）：Dim cnXL As New ADODB.Connection Dim rsXL As New ADODB.Recordset cnXL.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & varExcelFile & ";Extended Properties =Excel 8.0;"cnXL.Open If cnXL.State = 0 Then Exit ...

Excel表格中有多个sheet表,如何用c语言或者vb语言依次打开这些表然后...
答：'以下是vb6.0 操作Excel代码示例，为你加了详细注释，望能帮到你。'首先菜单，工程/引用，勾选 Microsoft Excel 11.0 object library '打开：Dim Xls As Excel.Application ''定义EXCEL类(需要工程/引用)Dim Xlsbook As Excel.Workbook '定义工作簿类 Dim Xlssheet As Excel.Worksheet '定义工作...

跪求各位vb高手,在vb6.0中如何读取excel中的数据,并把数据填写到vb中...
答：不懂编程,代码给你也很难读懂.还是先学一点编程吧.用ado对象,连接到excel表,下面的代码给你参考:哦,使用前要先引用ado对象哦 Private Sub Command3_Click()Dim Conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim i As Integer Dim sql As String 'On Error Resume Next strName ...

VB6.0如何启动EXCEL的VBA程序
答：很久没玩VB了，忘得差不多了，但我想肯定行的。不过既然会VBA了，何必要用VB呢，VBA也行。用 工作簿 的OPEN事件 启动代码 ，然后在 代码 运行完成后关闭 表格 。有什么具体要求请说明 建一个Excel文件，在这个文件编写 主程序 ，如果要手动输入启动 参数 ，最好建一个 窗体 ，在窗体设 文本框 ...

VB6.0如何启动EXCEL的VBA程序
答：很久没玩VB了，忘得差不多了，但我想肯定行的。不过既然会VBA了，何必要用VB呢，VBA也行。用工作簿的OPEN事件启动代码，然后在代码运行完成后关闭表格。有什么具体要求请说明 建一个Excel文件，在这个文件编写主程序，如果要手动输入启动参数，最好建一个窗体，在窗体设文本框输入启动参数，窗体由文件...

VB6.0怎么把记事本里面的数据导入到EXCEL中并且一个单元格装一个数据...
答：以下假设你的分隔符是一个空格:把记事本中的数据全选，复制，粘贴到word 在word中，选择替换，(注意，如果你在记事本中的分隔符是不规则的空格的话，先在这里把多个空格替换成一个空格），把空格替换成【^t】（不包括【】），然后全选，粘贴到Excel，这样就OK了！当然如果数字间是其他的分隔符的话...

怎样用VB6.0把Listview中查询到的数据导入到EXCEL
答：1，打开access，点击工具栏的外部数据，点击excel。2，点击浏览，选择要导入的excel表格，选好后点击确定，在获取外部数据中点击确定。3，点击确定后会弹出导入数据包向导框，点击下一步，然后到另一个步骤。4，点击下一步后，再点击下一步，然后在框里输入要导入的数据表的名称，最后点击完成就可以了...

用vb6.0怎样连接excel2007实现复杂报表设计与打印,
答：DIM G_EXAPP DIM G_EXBOOK DIM G_EXSHEET Set G_EXAPP = New Excel.Application G_EXAPP.Application.DisplayAlerts = False Set G_EXBOOK = G_EXAPP.Workbooks.add Set G_EXSHEET = G_EXBOOK.Worksheets(1)...’设计 G_EXSHEET.Cells(Row, Col) = ""G_EXSHEET.Range("K" & Row...

vb6.0中如何做这种调用EXCEL的软件
答：VB中实例化一个Excel类,然后就可以按照变量的方式在VB中操作了... 不过还是建议你不要用Excel,数据小的话要用Access

在VB6.0中,点击按钮就可以打开Excel,应该怎么改?
答：Dim xlapp As Excel.Application 'Excel对象Dim xlbook As Excel.Workbook '工作簿Dim xlsheet As Excel.Worksheet '工作表Dim xlrange As Excel.RangePrivate Sub Command1_Click()Set xlapp = CreateObject("excel.application") '第一层Set xlbook = xlapp.Workbooks.Open("E:\工作\VB软件\有...