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 参数，这样文本框就能显示你指定路径的文本文件
- 相关评论
- 我要评论
-