vb向读写excel(vb文件写入)

1. vb文件写入

VB菜单：工程->引用 里面找 Microsoft ActiveX Data Object 2.8 Library,并勾选上

Dim cn As New ADODB.Connection'声明一个连接对象

Dim rst As New ADODB.Recordset'声明一个记录集对象

Dim SqlStr As String'声明一个字符串变量

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=111"

'上面是连接到数据库

SqlStr = "Select * From 用户表"

rst.CursorLocation = adUseClient'设置游标位置

rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集

rst.Fields("用户名称").Value = Text1.Text'修改记录集中第一条记录"用户名称"字段的数值

rst.Fields("用户口令").Value = Text2.Text'修改记录集中第一条记录"用户口令"字段的数值

rst.UpdateBatch '提交，就是写到硬盘的数据库文件

rst.Close '关闭记录集

Set rst = Nothing '释放

cn.Close '关闭连接

Set cn = Nothing '释放

2. 用vbs把内容写入excel

有两个办法找回，但前提都是不能点保存。虽然看来帮不上你了，但这个技巧你可以以后尝试。

点撤消或ctrl+z

如果点撤消都没办法了，就强行关机（长按电源的那种）（或者在任务管理器里强行关掉进程），再次开机，打开excel，它会自动打开恢复文档，恢复文档中的数据是你未保存的五分钟前的数据。

3. vbs读写文件

正常应该不会，vbs是可以用记事本默认的ansi编码的，除非你的vbs代码写得不对才会运行出错。如果真的是编码错误，那在保存记事本的时候可以选择utf-8编码试试

4. vb读写文件

Sub test11() Dim path, file, wb As Workbook Application.ScreenUpdating = False path = Application.ThisWorkbook.path & "\" file = Dir(path & "*.xls*") Do While file <> "" If file <> ThisWorkbook.Name Then Set wb = Workbooks.Open(path & file) wb.Worksheets("围护结构位移").Range("F5:F24").Copy ThisWorkbook.Sheets(1).Range("a65536").End(xlUp).Offset(1, 0) wb.Close savechanges:=False End If file = Dir Loop Application.ScreenUpdating = True End Sub

5. vb写入Excel

、在工程中引用Microsoft Excel类型库：从"工程"菜单中选择"引用"栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000），然后选择"确定"。表示在工程中要引用EXCEL类型库。

2、在通用对象的声明过程中定义EXCEL对象：Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkBookDim xlSheet As Excel.Worksheet3、在程序中操作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对象这是我收藏的，你试一下

6. vb读入文本文件

VB6.0MsComm控件可以利用OnComm事件连续获取来自外设发送的信号。

基于：

1）MsComm控件的RThreshold 属性不为0和恰当的接收代码。

2）使用电脑主板物理COM口或PCI多串口卡上的COM口COM，这样的COM口是全双工的，发送与接收不会冲突。

3）高质量的接收代码和符合通信协议和数据帧规约的接收处理代码。

实例代码：

Private Sub Form_Load() MSComm1.InputMode = comInputModeBinary '采用二进制传输 MSComm1.InBufferCount = 0 '清空接受缓冲区 MSComm1.OutBufferCount = 0 '清空传输缓冲区 MSComm1.RThreshold = 1 '产生MSComm事件 MSComm1.InBufferSize = 1024 TxtSend = "" TxtSend = "" txtReceive = "" Text2 = ""End SubPrivate Sub MSComm1_OnComm() '接收数据 Dim strBuff As String Select Case MSComm1.CommEvent Case 2 MSComm1.InputLen = 0 strBuff = MSComm1.Input BytReceived() = strBuff jieshou lenInput = Len(strData) Text2 = lenInput \ 2 '数据处理代码 End SelectEnd SubPublic Function jieshou() '接收数据处理为16进制 Dim i As Integer For i = 0 To UBound(BytReceived) If Len(Hex(BytReceived(i))) = 1 Then strData = strData & "0" & Hex(BytReceived(i)) Else strData = strData & Hex(BytReceived(i)) End If Next txtReceive = strDataEnd Function

7. vb中如何写入文本文件

把文本框的passwordchar属性设置为"*" 可以在属性窗口直接设置，也可以在程序中使用代码设置。 Private Sub Form_Load() Text1.PasswordChar = "*" End Sub

8. vb文件读取

'函数：一次性读文件至变量，非常快

functiongetfile(filenameasstring)asstring

dimiasinteger,sasstring,bb()asbyte

ifdir(filename)=""thenexitfunction

i=freefile

redimbb(filelen(filename)-1)

openfilenameforbinaryas#i

get#i,,bb

close#i

s=strconv(bb,vbunicode)

getfile=s

endfunction

'调用举例：

dimsasstring

s=getfile("c:\1.txt")

9. vbs文件读写

让bat隐藏运行需要用vbs文件才能实现。

方法一：新建一个文本文档，写入

set ws=WScript.CreateObject(WScript.Shell)

ws.Run d:\yy.bat,0

另存为vbs文件即可，其中d:\yy.bat是你需要运行的bat文件的路径。

方法二：用文本文档打开bat文件，在开头处写入

@echo off

if %1 == h goto begin

mshta vbscript:createobject(wscript.shell).run(%~nx0 h,0)(window.close)&&exit

:begin

REM

然后运行bat文件即可。

10. vb 读取文件

RichTextBox1.LoadFile("E:\MVP.txt", RichTextBoxStreamType.PlainText)，关键是 PlainText 参数，这样文本框就能显示你指定路径的文本文件