1. EXCEL中用VBA读取另一个EXCEL文件中的数据
Application.ScreenUpdating=FalseWorkbooks.Open"测试.xls"'读取或写入数据的代码Workbooks("测试.xls").CloseSaveChanges:=TrueApplication.ScreenUpdating=True
2. 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").ValueNextEnd Sub这样之后，a、b、c列的内容便存在a(),b(),c()数组中了。
3. 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 具体操作需要看数据而行了
4. 如何用EXCEL VBA读入固定格式的TXT文档
参考下：Sub ReadFile()Dim dDate As DateDim sCustomer As StringDim sProct As StringDim dPrice As DoubleDim sFName As String Dim iFNumber As Integer 'File numberDim lRow As Long 'Row number in worksheetsFName = "C:\VBA_Prog_Ref\Chapter12\JanSales.txt"'获得未被使用的文件号iFNumber = FreeFile'打开文件准备输入Open sFName For Input As #iFNumberSheet2.Cells.Clear ‘清除表格内容lRow = 2Do'从txt 文件读取内容到ExcelInput #iFNumber, dDate, sCustomer, sProct, dPriceWith Sheet2.Cells(lRow, 1) = dDate.Cells(lRow, 2) = sCustomer.Cells(lRow, 3) = sProct.Cells(lRow, 4) = dPriceEnd With'移动到下一行lRow = lRow + 1'读取文件，直到文件结尾Loop Until EOF(iFNumber)'关闭文件Close #iFNumberEnd Sub
5. excel vba读取文本文件
Subs()OpenThisWorkbook.Path&"a.txt"ForInputAs#1k=9DoWhileNotEOF(1)LineInput#1,aa=Application.Trim(Replace(a,"–",""))Cells(k,2).Resize(1,3)=Split(a)k=k+1LoopClose#1EndSub
6. 用excel的VBA，如何实现从文件A中读取数据，在B文件中找到记录，写到文件C里，核心是要“跨文件”
实际就是通过EXCEL读取，类似这种，把TXT文件（B文件）读入内存，并把需要的根据条件（A文件）写入EXCEL表格（C文件）
Subctxt()'读取多个选中的TXT中的内容写入到EXLCEdimi%FilesToOpen=Application.GetOpenFilename("文本文件（*.txt）,*.txt",MultiSelect:=True,Title:="要统计的文件")ForEachFilesInFilesToOpenOpenFilesForInputAs#1i=1DoInput#1,aIfLen(a)>0ThenCells(ActiveSheet.Cells(65536,i).End(xlUp).Row+1,i)=ai=i+1EndIfLoopWhileNotEOF(1)Close#1NextEndSub
7. 用EXCEL VBA获取指定目录下的文件名(包括文件夹名)
1、首先利用快捷键“Windows键+R”打开“运行”窗口
8. excel的VBA关于如何后台打开工作簿并读取里面的数据问题（高手进）
1、定义新的Excel.Application对象（Dim EA as new Excel.Application）2、新的Excel.Application隐藏（EA.Visible=False）3、SET WB=EA.Workbook.open(”G:\1.xls”）'（WB事先定义成Wordbook对象：Dim WB as new workbook）4、Var1=WB.Sheets(1).cells(2,2)5、WB.Close False6、SET EA=nothing
9. Excel VBA读取TXT
excel肯定是不可能自动运行的，只有手动点excel打开指定文件后，才会运行你的宏代码。excel没有定时器这个概念，所以只能用一个无限循环来做，一直不停的读当前时间，判断是不是过了2秒，然后读文件。
10. excel vba，读取指定路径上的excel 文件数据，后台读取，不要打开它
只能给你个几个参考，当然还有其他方法，希望能够帮到你 望采纳 getobject函数 本质是打开的，只是看不到窗口 Dim wb as workbook set wb = getobject(具体路径+文件) with wb ………….(operation on wb) end with wb.close false set wb=nothing
未经允许不得转载：山九号 » excelvba读取文件|EXCEL里VBA能读取指定的文件里数据吗
