vb怎么读excel文件内容(vb读文本文件)

1. vb读文本文件

答：vb读取文本文件中指定内容方法：

privatesubcommand1_click()

open"c:\123.txt"forinputas#1

n=0

dowhilenoteof(1)

lineinput#1,a

n=n+1

ifn=3then

text1.text=a

exitdo

endif

loop

close#1

endsub

这样就可以了。用n来控制行数。当到达了第三行，就输出到文本框，然后退出循环。

2. vb读写文件

首先我们观察这个XML文件的结构，看到<weather>这个节点在整个XML中的关系去掉其他你不需要读取的节点比较容易看清楚，像这样子首先，你得

创建一个XMLDocument对象，并使用Load方法加载

然后使用SelectSingleNode方法不断的从外到里选中节点，直到选中weather节点为止

再使用InnerText方法获得该节点的内容

3. vbs 读取文本

setws=createobject("wscript.shell")dowhile1'按下alt+F4(建议用其他的键来试验例如"A"因为alt+F4是关闭当前窗口，'关完窗口就会打开关机窗口)ws.sendkeys("%{F4}")'每次循环等待时间3000=3秒，以毫秒为单位的wscript.sleep3000loop想要停止它可新建文本m.txt改名m.bat右击编辑输入taskkill/f/imwscript.exepause保存当需要停止。vbs时执行一下m.bat即可

4. vb文本框怎么输入文字

我做一个，有一个text,2个button,你自己再改，PrivateSubCommand1_Click()Text1.Locked=FalseText1.Text=""Text1.Text="com1"Text1.Locked=TrueEndSubPrivateSubCommand2_Click()Text1.Locked=FalseText1.Text=""Text1.Text="com2"Text1.Locked=TrueEndSub

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. vb 写入文件

1、新建一个EXE工程，在里面放置一个TextBox和一个按钮控件，把文本框的Text属性改成空白，把按钮控件的Caption属性改成“写入”。

2、定义一个字符串变量，把你想生成的文件路径名赋值给它。这个变量的定义可以用Dim放在按钮的Click事件中，也可以用Public放在模块中。按钮的Click事件：Dim lj as String lj="文件路径"（如E:\123.txt）。

3、在按钮的Click事件中，用Dir函数判断这个路径里有没有123.txt这个文件，然后如果没有的话创建文件，让文件的句柄为#1。If Dri(lj) = "" then Open lj For Output As #1 ...... End If。

4、在文本中写入Text1的内容，然后关闭文本：

代码（插入刚才的省略号的地方）：

Print #1, Text1.Text

Close #1

7. vb读取word

Dim AppWord As Word.Application '声明对象Set AppWord = CreateObject("Word.Application") '实例化对象AppWord.Documents.Open App.Path & "\举例.doc" '打开已经存在的Word文档'在文档开头输入“您好！Word VBA”Selection.TypeText Text:="您好！Word VBA" & vbCrLfAppWord.Documents.Close True '保存修改AppWord.Quit '关闭WordSet AppWord = Nothing '释放资源

8. vb读写excel文件

可对Ole控件关联对象的Excel表格的单元格的Value属性赋值来写入VB已读到的数据。

Value属性，返回或设置一个Variant型数，它指定该属性之值，此属性可读/写。

以下是实现代码：