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