189 8069 5689
不知有没有save，如果没有的话可以用模拟按键，先设置窗口焦点，用sendkey函数发送ctrl+s等待约一秒左右再发送关闭命令。
成都创新互联成立与2013年，是专业互联网技术服务公司，拥有项目网站设计制作、成都网站制作网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元琼山做网站,已为上家服务,为琼山各地企业和个人服务,联系电话:18980820575
一、VB读写EXCEL表：
能获取到表的行数的代码：xlSheet2.UsedRange.Rows.Count
VB本身提自动化功能可以读写EXCEL表，其方法如下：
1、在工程中引用Microsoft
Excel类型库：
从"工程"菜单中选择"引用"栏；选择Microsoft
Excel
9.0
Object
Library（EXCEL2000），然后选择"确定"。表示在工程中要引用EXCEL类型库。
2、在通用对象的声明过程中定义EXCEL对象：
Dim
xlApp
As
Excel.Application
Dim
xlBook
As
Excel.WorkBook
Dim
xlSheet
As
Excel.Worksheet
3、在程序中操作EXCEL表常用命令：
Set
xlApp
=
CreateObject("Excel.Application")
'创建EXCEL对象
Set
xlBook
=
xlApp.Workbooks.Open("文件名")
'打开已经存在的EXCEL工件簿文件
xlApp.Visible
=
True
'设置EXCEL对象可见（或不可见）
Set
xlSheet
=
xlBook.Worksheets("表名")
'设置活动工作表
xlSheet.Cells(row,
col)
=值'给单元格（row,col）赋值
xlSheet.PrintOut
'打印工作表
xlBook.Close
(True)
'关闭工作簿
xlApp.Quit
'结束EXCEL对象
Set
xlApp
=
Nothing
'释放xlApp对象
xlBook.RunAutoMacros
(xlAutoOpen)
'运行EXCEL启动宏
xlBook.RunAutoMacros
(xlAutoClose)
'运行EXCEL关闭宏
4、在运用以上VB命令操作EXCEL表时，除非设置EXCEL对象不可见，否则VB程序可继续执行其它操作，也能够关闭EXCEL，同时也可对EXCEL进行操作。但在EXCEL操作过程中关闭EXCEL对象时，VB程序无法知道，如果此时使用EXCEL对象，则VB程序会产生自动化错误。形成VB程序无法完全控制EXCEL的状况，使得VB与EXCEL脱节。
可以在窗体上放一个Lable控件，取名叫Lable1， 那么实现方式就是： private sub form_load() Lable1.Text="今天天气很好"; end sub 你可以试试！
1：打开wps文件，你首先要了解wps文件头的定义格式，一般vb不是特别的好
实现，因为牵扯到位操作，vb对wei操作不是特别的灵活，这个功能最好使
用c或者c＋＋语言来实现，执行效率要高的多。
2：使用vb
api函数：getfullpathname
Public
Declare
Function
GetFullPathName
Lib
"kernel32"
Alias
"GetFullPathNameA"
(ByVal
lpFileName
As
String,
ByVal
nBufferLength
As
Long,
ByVal
lpBuffer
As
String,
ByVal
lpFilePart
As
String)
As
Long
旧的技术 Ole，可以控制。
现在一般使用ActiveX DLL的控制方式，像
Dim gApp As Word.Application
Dim gDoc As Word.Document
If Process.GetProcessesByName("Word").Length 0 Then
gApp = GetObject("Word.Application")
set gDoc=gApp.ActiveDocument
// 这样得到Document，就可以进行控制了。
End If
1。选择工作表左上角的“全选”按钮，选定所有单元格，选择“审阅”选项卡中的“保护单元格”命令,取消所有单元格锁定。
2。再选择不允许填充内容的单元格区域，选择“审阅”选项卡中的“保护单元格”命令，将不允许修改的单元格锁定。
3。选择“审阅”选项卡中的“保护工作表”命令，在弹出的对话框中“确定”即可（如果不想让他人修改，这里可以设置密码）。