返回目录:excel表格制作
vb.net没用zhidao过,vb6.0的话可以用getobject这种方法内,你可以改改试试,看能不能容用
Dim xlApp As Object
Set xlApp = GetObject(ExcelFileName).Application '获取Excel对象
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(App.Path & "\委托书.xls") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = IIf(fg = 0, True, False) '设置e799bee5baa6e79fa5e98193e4b893e5b19e362EXCEL对象可见(或不可见)预览设置为可见
Set xlSheet = xlBook.Worksheets("sheet1") '设置活动工作表
......
xlApp.DisplayAlerts = False '不提示是否覆盖
xlBook.SaveAs App.Path & "\检验委托书\" & Trim(w.C_hpzl.Text) & Trim(w.T_hphm.Text) & "_" & a.jylsh & ".xls" '保存当前发票信息
xlBook.Close (False) '关闭工作簿
xlApp.Visible = False
xlApp.Quit '结束EXCEL对象
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing '释放xlApp对象
VB代码自己创建的是这样关闭的
其他的需要调用系统API来结束进程
下面所举的例子均假设F盘下有一个名为d.txt的文本文件,若需要尝试这些例子请作相应的改动。
一、用定长的String变量获取文本内容。由于定长String变量支持的下界为65400,所以在打开超过32K字节的文件时超出部分的字节将无法获取: Private Sub Command1_Cliack() Dim sA As String * 65400 '声明定长String变量 Open "F:\d.txt " For Binary As #1 '用二进制打开文件 Get #1, , sA '用Get语句从文件中获取字节 Text1 = sA '显示打开的文件 Close #1 '关闭文件 End Sub;
二、先声明一字符串变量,然后用空e79fa5e98193e78988e69d83339格填充字符串,使变量大小与文件大小一致,再通过Get语句将文件全部数据存储到变量中,从而达到获取整个文件字节数的目的。
此法可以打开大于32K的文件,但应该注意的是,装载文件的容器必须能装载大于32K的文件,下例用RichTextBox控件显示打开的文件: Private Sub Command1_Click() Dim sA As String Open "f:\d.txt " For Binary As #1 sA = Space(LOF(1)) '用空格填充sA变量 Get #1, , sA '用Get语句获取文件全部内容 RichTextBox1.Text = sA Close #1 End Sub;
三、用StrConv函数将文件的控制字符串数据和Unicode码之间进行转换,从而达到打开文件的目的。可打开任意大小文件。
再给一个简单例子: Private Sub Command1_Click() Open "f:\d.txt " For Input As #1 RichTextBox1.Text = StrConv(InputB$(LOF(1), 1), vbUnicode) Close #1 End Sub;
四、用Shell语句直接调出Windows的记事本,给个文件名即可轻而易举地打开文本文件。此法适合于打开程序的Readme文件(注意:在可执行文件和要打开的文本文件之间要有空格): Shell "NotePad.EXE f:\d.txt ",vbNormalFucus;
五、用RichTextBox控件自身的LoadFile属性打开文件: RichTextBox1.LoadFile "f:\d.txt ", rtfText。
我觉得如果你上面那段代码能正常运行完应该是没什来么问题的。除非行动中出错或其它非正源常中断而没有运行
x1.Quit
Set x1 = Nothing '释放内存
Set x1Book = Nothing
Set x1Sheet = Nothing
这部分代码才会导致百你说的进程没关闭的问题。如果是程序中间出错度你可以在程序开始处加入ON ERROR GOTO XX 语名。然后在错误处理开知始处判断X1是否退出,如果否在判道断语句后加入上面几行代码就OK了。