Excel打开vb

VB打开EXCEL的方法 一楼的没有指明

Dim xlBook As Excel.WorkBook

Set xlBook = App.Workbooks.Open(\文件名\ 这种语法同样要求excel已经存在才能操作。 Public xlApp As Excel.Application Public xlBook As Excel.Workbook Public xlChar As New Excel.Chart

Public xlSheet As New Excel.Worksheet Set xlApp = New Excel.Application

Set xlApp = CreateObject(\Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets.Add xlSheet.Cells(1, 1) = \测试\'写入内容 xlBook.SaveAs (\'保存文件 xlApp.Quit

Set xlApp = Nothing

本方法采用add添加excel文件和datasheet，然后用save保存。如果用xlApp.Visible=False，则自动生成文

VB打开EXCEL的方法 一楼的没有指明

Dim xlBook As Excel.WorkBook

Set xlBook = App.Workbooks.Open(\文件名\ 这种语法同样要求excel已经存在才能操作。 Public xlApp As Excel.Application Public xlBook As Excel.Workbook Public xlChar As New Excel.Chart

Public xlSheet As New Excel.Worksheet Set xlApp = New Excel.Application

Set xlApp = CreateObject(\Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets.Add xlSheet.Cells(1, 1) = \测试\'写入内容 xlBook.SaveAs (\'保存文件 xlApp.Quit

Set xlApp = Nothing

本方法采用add添加excel文件和datasheet，然后用save保存。如果用xlApp.Visible=False，则自动生成文

VB打开EXCEL的方法 一楼的没有指明

Dim xlBook As Excel.WorkBook

Set xlBook = App.Workbooks.Open(\文件名\ 这种语法同样要求excel已经存在才能操作。 Public xlApp As Excel.Application Public xlBook As Excel.Workbook Public xlChar As New Excel.Chart

Public xlSheet As New Excel.Worksheet Set xlApp = New Excel.Application

Set xlApp = CreateObject(\Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets.Add xlSheet.Cells(1, 1) = \测试\'写入内容 xlBook.SaveAs (\'保存文件 xlApp.Quit

Set xlApp = Nothing

本方法采用add添加excel文件和datasheet，然后用save保存。如果用xlApp.Visible=False，则自动生成文

VB打开EXCEL的方法 一楼的没有指明

Dim xlBook As Excel.WorkBook

Set xlBook = App.Workbooks.Open(\文件名\ 这种语法同样要求excel已经存在才能操作。 Public xlApp As Excel.Application Public xlBook As Excel.Workbook Public xlChar As New Excel.Chart

Public xlSheet As New Excel.Worksheet Set xlApp = New Excel.Application

Set xlApp = CreateObject(\Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets.Add xlSheet.Cells(1, 1) = \测试\'写入内容 xlBook.SaveAs (\'保存文件 xlApp.Quit

Set xlApp = Nothing

本方法采用add添加excel文件和datasheet，然后用save保存。如果用xlApp.Visible=False，则自动生成文

打开文本文件是不少程序必须处理的问题。如何更有效地打开文本文件应该是一个值得研究的课题。为此，笔者将自己搜集到的几种方法无私地奉献出来(-_-)，供各位参考。同时期盼大家也来参与，借VB编程乐园这块宝地互相交流。如您有这份心，土人在这里先说声谢谢！

下面所举的例子均假设F盘下有一个名为d.txt的文本文件，若需要尝试这些例子请作相应的改动。

方法一:

用定长的String变量获取文本内容。由于定长String变量支持的下界为65400,所以在打开超过32K字节的文件时超出部分的字节将无法获取: Private Sub Command1_Cliack()

Dim sA As String * 65400 '声明定长String变量

Open \用二进制打开文件 Get #1, , sA '用Get语句从文件中获取字节 Text1 = sA '显示打开的文件 Close #1 '关闭文件 End Sub

方法二:

先声明一字符串变量，然后用空格填充字符串，使变量大小与文件大小一致，再通过Get语句将文件全部数据存储到变量中，从而达到获取整个文件字节数的目的。此法可以打开大于32K的文件，但应该注意的是，装载文件的容器必须能装载大于32K的文件

篇一：打开excel表,提示找不到打开程序的宏

打开excel表，提示找不到打开[新建 microsoft excel 工作表（2）.xls] XL4Poppy!$C$4 继续运行可能导致错误。原来没有出现过，是接收了一个表格打开后提示要启用宏，以后以前弄的表现在打开就变成这样了。

如片不清楚，看不见提示，试试把“工具”-“宏”-安全性改为“中”，然后再试试

手动清除Excel宏病毒的具体方法：

1、进入 C:\Program Files\Microsoft Office\OFFICE11\xlstart\下先删除book1文件，（注意：这个C是指你的系统盘，比如我的是双系统，那么打开C盘就是删了也是无用的，看你使用的是哪个系统。）然后再建立Book1文件夹；

2、打开EXCEL文档，格式-->工作表-->取消隐藏工作表，删除xl4poppy工作表，然后，点击菜单：插入-->名称-->定义，删除所有的名称。保存；

3、处理完再删除刚才建立的文件夹。

这样就可以清松消灭掉Excel宏病毒，再打开你的excel文件，就安全了。此种方法保证快捷有效！

篇二：EXCEL宏被禁用怎么办？

看到excel提示宏已被禁用，大家会不会觉得很心塞呢?

VB关于excel操作的实例

这里为大家带来一篇VB关于excel操作的实例。希望对您的学习有帮助，具体参考描述如下：

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253Imports System.Data.OleDbPublic Class Form1 Private _FilePath As String = \ Private _DS As DataSet Private Const _Connectstring = \Source=<FilePath>;Extended Properties=\ Private Const _SelectData = \[<TableName>$]\ Private Sub

TSBSelectFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBSelectFile.Click Me.OFDExc

教你学习电脑

教你一次打开多个Excel工作表

方法一 打开工作簿(*.xls)所在的文件夹，按住Shift键或Ctrl键，并用鼠标选择彼此相邻或不相邻的多个工作簿，将它们全部选中，然后按右键单击，选择“打开”命令，系统则启动Excel 2007，并将上述选中的工作簿全部打开。

方法二 将需要一次打开的多个工作簿文件复制到C:\Windows\Application Data\Microsoft\Excel\XLSTART文件夹中，以后启动Excel 2007时，上述工作簿也同时被全部打开。

方法三 启动Excel 2007，单击“工具→选项”命令，打开“选项”对话框，点击“常规”标签，在“启动时打开此项中的所有文件”后面的方框中输入一个文件夹的完整路径(如d:\Excel)，单击“确定”退出。然后将需要同时打开的工作簿复制到上述文件夹中，以后当启动Excel 2007时，上述文件夹中的所有文件(包括非Excel格式的文档)被全部打开。

方法四 在Excel 2007中，单击“文件→打开”命令，按住Shift键或Ctrl键，在弹出的对话框文件列表中选择彼此相邻或不相邻的多个工作簿，然后按“打开”按钮，就可以一次打开多个工作簿。 方法五 用上述方法，将需

VB封装Excel_VBA成DLL技巧

VB封装Excel_VBA成DLL技巧

使用VB6.0在WinXP_sp2、Excel 2000环境下制作、测试通过。一、启动VB6.0： 执行：“文件夹(F)”——“新建(N)”——选择“ActiveX DLL”，如下图1：二、引用：VB中对Excel的引用 执行：“工程(P)”——“引用(N)”——选择所要引用的项目：如下图2 Excel 2000中：

Microsoft Excel 9.0 Object Library

Microsoft Office 9.0 Object LibraryExcel 2003中： Microsoft Excel 11.0 Object Library

Microsoft Office 11.0 Object Library三、编写代码： 1、将工程默认名称“工程1”，改为“zygtest”，将类模块默认名称“Class1”， 改为“zyg365”，

2、在类模块的代码编辑区写入代码：如下图3

模块名称为“hongtong”，代码如下 在VB中编写代码时：要注意以下声名 Dim XLAPP As Object

Set X

OFFICE打开很慢的解决方案

故障现象：

2013-9-24资中重龙店报修故障excel表格打开很慢，双击文档后需要好几分钟才能显示出来。远程连接后尝试打开表格，一直没反应，过了五分钟左右才弹出excel表格，但是表格内容仍不可见，等待两分钟左右，表格内容才正常显示。关掉此表格，打开其他表格，故障现象几乎一致。

解决方案：

1、 在资源管理器--工具--文件夹选项

2、 文件类型中选中扩展名为xls（xlsx也是，分别修改）,点击\高级\

3、 选择\打开\点击\编辑\在\用于执行编辑的应用程序中\在/e的后而加上\（注：一定

要添上空格及“”号，”%1”前有空格）例如:\Office\\OFFICE11\\EXCEL.EXE\。注意一定是这个顺序，其它顺序都是不对的。取消

“使用DDE”前的钩，点击确定后，你的excel打开速度就会提高很多，没有延迟了。

4、 同理，word就是选择扩展名为doc，用相同的方法在/n与/dde的中间加\（注：一

定要添上空格及“”号，”%1”前后均有空格）,例如\Office\\OFFICE11\\WINWORD.EXE\。并取消“使用DDE”前的钩。