136
2022-10-08 04:551. vb读写excel文件
你的题目是“VB中如何使用EXCEL控件（sheet1控件）来导入EXCEL数据“
但要求是：”另外还有几个要求：
1：不用VB的其他表格去实现该功能，因为我VBA的代码没办法移植，代码有很多。重写太复杂
2：不用VB后台操作EXCEL的方法，要再VB中处理数据，而不是用VB去操作EXCEL处理数据”
好像不行吧，使用VB导入Excel，但又不希望使用VB控件，你认为可能吗？
其实使用VB导入Excel，不是特别复杂，很简单的，不像VBA。
2. vb 文件读写
Open 文件名 [For模式][Access 存取类型][锁定]As [#]文件号[Len=记录长度]
说明：
(1)文件名；
(2) 模式用于指定文件访问的方式，包括：
Append——从文件末尾添加 Binary——二进制文件
Input——顺序输入（输入给自己，从txt中取出） Output——顺序输出（输出到txt中）
Random——随机存取方式
(3)文件号(或称文件缓冲区)
(4)存取类型：访问文件的类型，为Read(只读)、Write(只写)、Read Write(读写)
(5)锁定：限制其他用户或其他进程对文件进行读写操作
Shared(共享)、LockRead(禁止读)、Lock Write(禁止写)、
Lock Read Write(禁止读写)
(6)Len：用来指定每个记录的长度(字节数)
示例： Open"d:\cj1.dat" For Output As #1
3. vb 读文件
首先说明一点,VB编写的原代码只能在安装有VB编程环境的WIN9X以及WIN2000和WINXP的一些版本下能运行,在其他非WINDOWS操作系统无法运行。第二WINDOWS系统中未安装VB编程环境则需通过VB的PACKAGE&DEPLOYMENT向导生成安装包(安装程序)来进行安装注册,方能运行,特别要注意,所开发的VB的EXE文件最好再无VB编程环境的WINDOWS系统安装来发现问题,你的VB生成的EXE文件能否运行。
操作数据库的VB的EXE文件还需正确连接数据库,其它需要读写磁盘的VB的EXE文件所涉及的文件或文件夹的位置是在VB的EXE文件所认的位置
4. vb写入Excel
Private Sub Command1_Click()Dim xlsApp As Object, xlsWb As Object, xlsWorksheet As ObjectSet xlsApp = CreateObject("excel.application") '创建excel.application对象xlsApp.Visible = True '显示excel 主界面xlsApp.Visible = False '隐藏excel 主界面xlsApp.workbooks.Open ("D:\1\1.xls") '打开D:\1\1.xlsSet xlsWb = xlsApp.workbooks("1.xls") '设置xlswb变量引用1.xls 工作簿'MsgBox xlsWb.Name '显示工作薄的名字Set xlsWorksheet = xlsWb.worksheets(1) '设置xlsworksheet变量引用1.xls 工作簿的第一个工作表MsgBox xlsWorksheet.cells(1, 1) '显示a1单元格的内容MsgBox xlsWorksheet.cells(1, 2) '显示a1单元格的内容Text1.Text = xlsWorksheet.cells(1, 1)Text2.Text = xlsWorksheet.cells(1, 2)xlsApp.quit '关闭excelEnd Sub
5. vb读写文本文件
1.双击Command1添加如下代码
Private Sub Command1_Click()
Dim strFile As String
Dim intFile As Integer
Dim strData As String
strFile = "c:\学生成绩.txt"
intFile = FreeFile
Open strFile For Input As intFile
strData = StrConv(InputB(FileLen(strFile), intFile), vbUnicode)
Debug.Print strData
Close intFile
End Sub
2.运行代码读取文件
按F8开始单步调试代码，点击Command1，进入单步调试功能，多次按下F8或直接按下F5运行完成，就完成了读取文本文件内容并输出到立即窗口。
3.关键代码说明
intFile = FreeFile：获取一个文件句柄
Open strFile For Input As intFile ：打开文件
FileLen(strFile) ：获取文件内容字节大小
InputB：读取文件内容字节流
StrConv：将字节流转换为Unicode字符串
Debug.Print strData：将字符串内容输出到立即窗口
Close intFile：关闭文件句柄
6. vbs打开excel文件并写入
方法/步骤
1
首先我们打开一个工作样表作为例子。
excel中使用vba来插入行列的方法
2
在工作表中插入一行或者一列，有两种方式，一种是在行列序列栏上进行插入。这个时候如果是在行序列上点击鼠标右键，那么出现的就是插入行选项。反之则是插入列选项。
excel中使用vba来插入行列的方法
3
如果是在单元格上选择鼠标右键插入，那么出现的会是插入选择框，而且还提供了另外两种插入的方式。
excel中使用vba来插入行列的方法
4
我们使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：
Sub HideRow()
ActiveSheet.Rows(Selection.Row).Insert
ActiveSheet.Columns(Selection.Column).Insert
End Sub
excel中使用vba来插入行列的方法
5
row是行，column是列。这里我们表明的对象激活的工作表中的行列，进行insert方法插入。其参数是所选择的单元格。
excel中使用vba来插入行列的方法
6
运行这段代码，会在当前单元所在位置插入一个行和一个列，大家需要记住的是行和列都是作为单独的对象出现。而cells单元格是没有插入这个方法的。
excel中使用vba来插入行列的方法
7. vb读写excel文件 ado
1.使用 使用 instr([列名称],"字符串")>0 判断有‘字符串1’的行 2.使用 instr([列名称],"字符串")函数判断字符串起始位置 两个字符串的函数值差再减去len(字符串1)为90就是了
8. vb6.0读取excel
可对Ole控件关联对象的Excel表格的单元格的Value属性赋值来写入VB已读到的数据。
Value属性，返回或设置一个Variant型数，它指定该属性之值，此属性可读/写。
以下是实现代码：
9. vb读取excel文件
早年用过vb，delphi这些界面快速开发工具，拖一堆控件在界面上，每个控件加几个onClick，onChange函数，如果逻辑复杂，函数里需要用一些if，比如edit框为空，button就不能按。多年后发现，这竟是一般状态机的最佳实践:"在事件里处理状态，而不要在状态里处理事件"，这是解决状态爆炸的好方法，状态不要形式化，状态可以由任何多个不相干的变量组合而成，在每个事件里，按照业务的要求去判断需要组合的变量当成状态。
当然，一些纯算法场景，外部事件单一，状态逻辑稳定，可以写成教科书那种漂亮的状态机，先判断状态，再处理事件。总之，状态机不要学的太机械，太机械会把自己绕进去，多相信感觉，不要过份追求理论，相信只要是简单的设计，理论要来附和。
10. vb读写excel文件2007
问题解决方式：菜单-选项-安全性-保存时删除个人信息，将对勾取消。
Microsoft Office 2016：2015年4月15日，Microsoft在Google Play发行了4个Office 程序，其中包括Microsoft Word。
Microsoft Powerpoint，Microsoft OneNote和Microsoft Outlook，当时此版本只供平板电脑使用。
但已经开放给 Android 4.4 以上的所有设备，用户需要独立下载和更新各应用程序。屏幕尺寸小于 10.1 吋的Android设备无需订阅都能够正常使用大部分功能。
- 相关评论
- 我要评论
-