excelvba從txt文件中找內容

『壹』 如何用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

『貳』 VBA求助：如何實現excel與txt之間字元串查找與單元格值的替換

如果你的txt文件使用tab分隔符，那麼以下代碼可以符合你的要求

SubChangeTxt()
DimFileN,TxtWbAsWorkbook,ToFindDataAsString
DimToSubDataAsString,cAsRange,FirstAdrAsString
IfMsgBox("是否已經選中待查找的單元格？",vbYesNo)=vbNoThenExitSub
ToFindData=Selection.Cells(1).Value
ToSubData=Selection.Cells(1).Offset(,1).Value
FileN=Application.GetOpenFilename("Txt文件,*.txt",,"選擇txt文件")
IfTypeName(FileN)="Boolean"ThenExitSub
Workbooks.OpenTextFilename:=FileN,consecutivedelimiter:=False,_
Tab:=True,Space:=False
SetTxtWb=ActiveWorkbook
Setc=TxtWb.Sheets(1).UsedRange.Find(What:=ToFindData,_
LookAt:=xlPart,MatchCase:=False,matchbyte:=False,SearchFormat:=False)
IfNotcIsNothingThen
FirstAdr=c.Address
Do
c.Offset(,4)=ToSubData
Setc=TxtWb.Sheets(1).UsedRange.FindNext(c)
LoopUntilc.Address=FirstAdr
TxtWb.Closesavechanges:=True
MsgBox"替換完畢"
Else
TxtWb.CloseFalse
MsgBox"未找到，請選中要查找的單元格。"
EndIf
Setc=Nothing
SetTxtWb=Nothing
EndSub

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