A. vba 读取excel文件
建一个用户窗体，代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Form_load()
Dim a(1 To 1000) As String, b(1 To 1000) As String, c(1 To 1000) As String, i As Integer '......依次类推
For i = 1 To 1000 '这两处的1000改成你的最大行号，足够大
a(i) = Sheet1.Cells(i, "a").Value
b(i) = Sheet1.Cells(i, "b").Value
c(i) = Sheet1.Cells(i, "c").Value
Next
End Sub
这样之后，a、b、c列的内容便存在a(),b(),c()数组中了。
B. excel vba读取文本文件
Subs()
OpenThisWorkbook.Path&"a.txt"ForInputAs#1
k=9
DoWhileNotEOF(1)
LineInput#1,a
a=Application.Trim(Replace(a,"--",""))
Cells(k,2).Resize(1,3)=Split(a)
k=k+1
Loop
Close#1
EndSub
C. 用excel的VBA，如何实现从文件A中读取数据，在B文件中找到记录，写到文件C里，核心是要“跨文件”
实际就是通过EXCEL读取，类似这种，把TXT文件（B文件）读入内存，并把需要的根据条件（A文件）写入EXCEL表格（C文件）
Subctxt()'读取多个选中的TXT中的内容写入到EXLCE
dimi%
FilesToOpen=Application.GetOpenFilename("文本文件（*.txt）,*.txt",MultiSelect:=True,Title:="要统计的文件")
ForEachFilesInFilesToOpen
OpenFilesForInputAs#1
i=1
Do
Input#1,a
IfLen(a)>0Then
Cells(ActiveSheet.Cells(65536,i).End(xlUp).Row+1,i)=a
i=i+1
EndIf
LoopWhileNotEOF(1)
Close#1
Next
EndSub
D. 如何用VBA 读取excel所有数据
通过VBA中的函数sheets(!workbook.worksheet).select，就可以将当前的文件指针指向所选的工作薄中的指定工作表。
参数说明:
workbook为工作簿名即文件名
worksheet为工作表名
当文件指针设定好后，就可以对指定文件的指定工作表进行操作了。
E. EXCEL如何使用VBA打开相对路径下的文件或文件夹
打开文件如下：
Workbooks.Open ("C:对账单对帐单.xlsx")
这里你可以把“C:对账单”换成你的绝对路径，
你可以用：a = ThisWorkbook.Path
a = ThisWorkbook.Path
Workbooks.Open ("" & a & "&" "&对帐单.xlsx")
来获取你当前表的绝对路径，然后再打开，因为不知道你的具体情况，如果有问题可以hai我
如果当前文件夹下还有A文件夹可以用代码：
Workbooks.Open ("" & a & "&" A"&b.xlsx")
F. 如何用Excel VBA读取某一文件夹下批量TXT文本内的某行某列
如何用Excel VBA读取某一文件夹下批量TXT文本内的某行某列？ 可以使用如下的代码，复制如下代码到VBA模块中运行即可。
如下代码代表4行4列，如果其余行或列数则可更改相应的数字。
具体步骤如下：
打开office excel；
Alt+F11打开VBA编辑器；
复制如下代码到模块中；
F5运行该模块；
按照提示进余歼亩行如下步骤即可。
Sub xxx()Dim myFile As StringDim myText As StringDim myString As StringDim i As SingleWith Application.FileDialog(msoFileDialogFolderPicker).Show.AllowMultiSelect = FalsemyFile = .SelectedItems(1)End WithmyText = Dir(myFile & "\" & "*.txt")Do While Len(myText) <> 0Open myFile & "\" & myText For Input As #1myText = Split(Split(VBA.StrConv(InputB(LOF(1), 1), vbUnicode), Chr(10))(3), vbTab)(3) '4行4列，如果其余行或列数则更改相应的数字Debug.Print myTextClosemyText = DirLoopEnd Sub
如何用ISS指向某一文件夹
现在我们的标准安装已经完成，让我们讨论一下无人值守安装。Setupsql.exe程序让你记录下一个应答文件，它包括了你在安装程序对话框中常选的对于各种安装选项的所有回答。稍后，你能够通过调用以该应答文件作为参数的setupsql.exe命令来改举运行一个安装。这种无需任何用户干预的安装类型被称为无人值守安装。 要准备应答文件，先启动安装程序，在安装选择对话框中选择高级选项，在对话框中选择选取“记录无人值守.ISS文件”。安装程序会指导你完成常规的安装对话框，其中你可以填入所有你想要记录的选项。当你完成后，安装程序在\WINNT文件夹下创建一个名为setup.iss的文件。 要启动一个无人值守安装，运行setupsql.exe程序，用-s作为执行安静安装的参数、-fl参数指定一个应答文件。例如，要启动一个安静的、无人值守的安装——安装完成后不通知你，你可以使用以下命令： \setupsql.exe –s –fl \setup.iss 如果你想在安装完成时得到通知，从命令行执行如下setupsql.exe程序，或者把它写入一个批处理文件中： start /wait \setupsql.exe -s –fl \setup.iss 直到安装结束，控制才会传递到下一条命令。当你从批处理文件启动安装，而这个文件又包括其他依赖于安装的行为时，使用start /wait选项是特别重要的。例如，假设你要为一个名为INST1的命名实例执行无人值守安装来创建批处理文件，然后启动SQL Server服务，再运行一个用来创建数据库及其对象（如：表、存储过程）的sql脚本。这个批处理文件看起来可能像这样： start /wait D:\X86\Setup\setupsql.exe –s –fl C:\WINNT\setup.iss start MSSQL$INST1 OSQL /E /I “c:\data\scripts\createappdb.sql” 如果你不使用start /wait选项，控制从安装一开始就移到了批处理文件的第二条命令，而这条NET START命令试图启动一个还不存在的服务。 对一个无人值守安装进行故障排除要比对待标准安装的故障排除更需要慎重对待。标准安装往往在安装程序遇到问题时通过显示一个包含出错信息的对话框（并伴有响亮的警告声）来通知你。而无人值守安装只是简单地终止，且没有交互的通知。 要了解如何对无人值守安装进行故障排除，让我们来看一组竖森我遇到过的问题。假设你已经在服务器上完成了另一个产品的安装，然后你试图执行一个SQL Server的无人值守安装。安装程序检测到在前一个安装结束后服务器尚未重启，于是放弃安装，同时没有任何信息提示。如果你保持任务管理器窗口打开，你会注意到setupsql.exe 程序不活动，所以SQL Server没有被安装。你也应该检查日志文件。一旦安装成功，\WINNT\setup.log文件应该显示0作为出错代码；然而，在我描述的情景中，他很可能显示-1，这表示一个基本错误。你也应该看一下出错信息。 当执行无人值守安装时，我遇到过多次的另一个错误是“对话框次序紊乱”。同时，安装程序通常在\Pr
如何用vbs判断某一文件夹下是否有txt格式文件
set fso=createobject("scripting.filesystemobject")
set folder=fso.getfolder("D:123")
for each fl in folder.files
if lcase(right(fl,4))=".txt" then msgbox "存在":wscript.quit
next
msgbox "不存在"
excel如何用宏删掉D盘某个文件夹下“0.txt”文件
sub delfile()
Kill "D:\1\0.txt"
end sub
删除d盘文件夹1下面的0.txt文件
matlab如何打开某一文件夹下的.m文件？
解决方案1：
\)主程序开头添加addpath('program文件夹添加到当前运行的path中;e;program' 也就是把e:\
解决方案2：
m'd把要run的M文件改成function格式
然后再要用的地方调用function
如果之前没打开过的话就要先用命令打开，例如，把函数放进matlab里
用命令打开：
open('program\***:\
解决方案3：
用matlab需要一个工作空间（我的电脑默认的是：我的文档\\matlab这个文件夹），你把要用的文件都放在那里，要是满电脑乱放可不行B
解决方案4：
点击桌面matlab的图标，右键单击一下，点击属性，里面第二栏为起始位置，更改起始位置的文件位置即可。比如说你上边的将起始位置栏改为E:\program，如果该文件下面还有文件夹例如文件夹kiss,可以这样子更改E:\program\kiss,这样更改以后每次打开matlab的open选项时，自动从所设定的文件位置打开！
解决方案5：
主程序开头添加addpath('e:\program'); 也就是把e:\program文件夹添加到当前运行的path中，这样就可以直接调用该文件了
把要run的M文件改成function格式
然后再要用的地方调用function
如果之前没打开过的话就要先用命令打开，把函数放进matlab里
用命令打开，例如：
open('d:\program\***.m') &&其中***为文件名
解决方案6：
这是默认的文件夹
你点开想要打开的M文件就可以了 问你是否变更文件夹 点是就OK
解决方案7：
1 直接搜索*.m;
2 edit *.m
3 如果已经找到了m文件，那就双击好了
解决方案8：
matlab软件里面的文件窗口的右上角有得点
Excel 如何批量提取同一文件夹下excel信息
那个你直接用“无敌点击狗”软件就能轻松完成，在无敌点击狗里提供有自动点击按键操作和自动批量提取录入，按键模拟等，很方便的。
求批处理批量提取某一文件夹下所有文件内指定的字符
把压缩包解压后得到txt文件，然后可试试 文件批量处理百宝箱V8.0 主界面-更多功能-拓展界面-文本行处理-第39项功能，在待查找标记中输入：([1-9][0-9]{4,12}[!\D](?!\d))|(!1000)\@(qq|QQ)\.(|COM)，单击执行即可。
如何用matlab批量读取一个文件夹下的多个子文件夹中的多个文件
matlab我不了解，您是要用matlab这个程序去打开每一个文件吗？
如何用python获得ftp中某文件夹下的'文件夹列表'
使用dir()取回来后, 再处理一下,把目录挑出来:
drw-rw-rw- 1 user group 0 Oct 31 21:40 dir1
drw-rw-rw- 1 user group 0 Oct 31 21:42 dir2
-rw-rw-rw- 1 user group 10752 Oct 31 21:41 file1.doc
-rw-rw-rw- 1 user group 10752 Oct 31 21:41 file2.doc
G. 如何用vba读取多个excel文档的数据
通过VBA中的函数sheets(!workbook.worksheet).select，就可以将当前的文件指针指向所选的工作薄中的指定工作表。
参数说明:
workbook为工作簿名即文件名
worksheet为工作表名
当文件指针设定好后，就可以对指定文件的指定工作表进行操作了。
H. 如何在Excel VBA 中读写word文档 步骤
1.库的配置
在默认情况下，新创建的excel vba中不支持定义word对象。
所以需要先引入word库，操作步骤如下：
1.1 打开excel vba 界面
1.2 选中其中的一个Mole
1.3 选择菜单， Tools --> References
在打开的对话框中选择类似 "Microsoft Word 14.0 Object Library".
1.4 点击OK保存配置。
2. 打开文档
Set wordApplication = CreateObject("Word.Application")
wordApplication.Visible = False
Dim hasOpenDoc As Boolean
hasOpenDoc = IsOpen(filePath) ' is a self-defined function to check file is opend
If hasOpenDoc = True then
Set wordDoc = GetObject(filePath)
End if
If hasOpenDoc = False Then
Set wordDoc = wordApplication.Documents.Open(filePath)
End if
wordDoc.Active
With wordApplication
Dim aParagraph As Word.Paragraph
For Each aParagraph In wordDoc.Paragraphs
' do some thing to every paragraph.
Next aParagraph
End with
wordDoc.Close
Set wordDoc = nothing
' 如下这段代码引用某位牛人的，非常感谢他。由于路径丢失，不能给出链接, 抱歉
' 如下的找寻方式，能够正确的找出文件是否被打开
Function IsOpen(fileName As String) As Boolean
IsOpen = False
Dim findFile As Integer
findFile = FreeFile()
On Error GoTo ErrOpen
Open fileName For Binary Lock Read Write As findFile
Close findFile
Exit Function
ErrOpen:
If Err.Number <> 70 Then
Msg = "Error # " & Str(Err.Number) & "was generated by " & Err.Source & Chr(13) & Err.Description
MsgBox Msg, "Error", Err.HelpFile, Err.HelpContext
Else
IsOpen = True
End If
End Function
I. EXCEL里VBA，能读取指定的文件里数据吗
可以
dim wb as workbook , a&
set wb = getobject("文件的全部路径")
with wb
for a = 1 to wb.sheets.count
if sheets(a).name = " 4月份" then
.sheets(1).range(). thisworkbook
activesheets.name = " 名称"
```
```
end with
具体操作需要看数据而行了
J. 怎么能运用excel的vba读取word文档中的内容
SubAAA()
DimFilePathAsString'要读取的文件路径
DimS1AsString'文档的内容
DimS2AsString'提取到的内容
DimArAsVariant'用于保存最终结果
DimL1AsLong'记录当前查找到的字符位置
FilePath=Application.GetSaveAsFilename(fileFilter:="Word文档,*.doc;*.docx")
IfFilePath="False"ThenMsgBox"您没有选择文件，将退出程序。":ExitSub
WithCreateObject("word.application")
With.Documents.Open(FilePath,True,True)
S1=.Content
.CloseFalse
EndWith
.Quit
EndWith
L1=InStr(S1,"<")'第一个<位置
DoUntilL1=0
IfLen(S2)<>0Then
S2=S2&"Crazy0qwer"&Mid(S1,L1+1,InStr(L1,S1,">")-L1-1)
Else
S2=Mid(S1,L1+1,InStr(L1,S1,">")-L1-1)
EndIf
L1=InStr(L1+1,S1,"<")
Loop
Ar=Split(S2,"Crazy0qwer")
Range("A1").Resize(UBound(Ar)+1)=Application.Transpose(Ar)
EndSub