⑴ 怎麼把一個文件夾里的文件名導入excel
怎麼把一個文件夾里的文件名導入excel 在資源管理器中進入該文件夾,右擊,右鍵菜單中選擇「新建」——再選擇「Microsoft Excel工作簿」,就會創建一個新的空白Excel工作簿文件,將其重命名一個文件名,如「文件目錄.xlsx",雙擊打開。
在工作簿中,定義一個名稱,如FilesName,引用中輸入:
=FILES("文件夾路徑\*.*")&T(NOW())
確定,關閉名稱管理。其中文件夾路徑可以通過在資源管理器中按Shift加滑鼠右鍵,選擇」復制為路徑「快速准確都得到,再在定義名稱時粘貼即可。
在A1中輸入公式:
=IFERROR(INDEX(FilesName,ROW(A1)),"")
下拉至出現空白單元格時,就得到該文件夾下所有文件名列表
也可以A1中輸入公式:
=IFERROR(HYPERLINK("文件夾路徑\"&INDEX(FilesName,ROW(A1)),INDEX(FilesName,ROW(A1))),"")
下拉到出現空白,不僅得到文件名列表,而且還建立了超級鏈接,點擊文件名,會根據文件類型關聯的應用程序自動打開文件。可根據需要自己選擇哪種方式。
PS:名稱定義時,*.*可根據需要把後面的*改為想只列出的某類文件,如只要列出Excel文件,就是*.xls*,或包含某個(某些)特定字元的文件,如「2016年*.*」則列出以「2016年」開頭的文件名。
名稱的中NOW()起刷新作用,即當文件夾中的文件發生了變化時,能在打開文件目錄這個工作簿時自動刷新。
測試和打字花了半個小時,追加懸賞分吧。
如用DOS命令在文件夾里,把此文件夾里的文件名全部導入到一個TXT文本文檔里?
dir >>a.txt
怎樣將一個文件夾里許多子文件夾里的圖片都導入到一個文件夾里?
裡面有個搜索,搜索圖片格式,如.GIF,搜出後括起來剪貼就行啦(必須在該文件夾裡面搜索,不可以在子文件夾裡面使用)給分哦
請問怎麼用matlab把一個文件夾里的文件按照文件名歸類復制到不同的文件夾里?
pth = 'd:\tem\'; % 路徑fns = '*.bmp'; % 擴展名 % fdt = dir([pth fns]); % 調入此路徑下的指定擴展名文件for k = 1:length(fdt) fn = fdt(k).name; if ~isdir(fn) % 檢驗是否目錄,是目錄跳過 dd = fn(1); % 文件名的第一個字元作為目錄名 if isempty(dir([pth dd])) % 檢驗目錄是否建立 mkdir([pth dd]); % 建立目錄 end ofn = [pth fn]; % 源文件全路徑名 nfn = [pth dd '\' fn]; % 目標文件全路徑名 file(ofn,nfn); % 拷貝文件 delete(ofn); % 刪除源文件 endend
如何把一個文件夾里的文件剪切到另一個文件夾里
可以通過復制粘貼的方法轉移文件的路徑。更巧妙的方法就是用滑鼠左鍵點住文件,然後拖動到新的文件夾圖標處,等到這個新文件夾圖標改變顏色以後,松開滑鼠,文件就被轉移到新的文件夾內了。
如何把一個文件夾里的文件名提取出來
打開文件夾,找到要復制的文件,這文件上滑鼠右鍵重命名,文件名呈藍色,滑鼠在上面右鍵復制。
如何將多個文件夾下的文件名導入excel
dir歷遍
Sub 取工作簿名到單元格()
Dim mypath$, myfile$, i As Long, j As Long, wb As Workbook
Application.ScreenUpdating = False
mypath = "F:\A股日數據\A股" '路徑
myfile = Dir(mypath & "\*.xls")
ThisWorkbook.Sheets(1).Range("a:b").Clear
Columns("A:A").Select 'A列選擇
Selection.NumberFormatLocal = "@" 'A列格式設置為文本
Do While myfile <> ""
If myfile <> ThisWorkbook.Name Then
Set wb = Workbooks.Open(mypath & "\" & myfile)
ThisWorkbook.Sheets(1).Cells(i + 2, 1) = Left(wb.Sheets(1).Range("a1"), 6)
ThisWorkbook.Sheets(1).Cells(i + 2, 2) = Mid(wb.Sheets(1).Range("a1"), 8, 4)
End If
myfile = Dir
i = i + 1
wb.Close False
Loop
Application.ScreenUpdating = True
End Sub
我也新手 自己做的給你個參考
怎麼把一個文件夾里的東西拷貝到另一個文件夾里
打開A文件夾選中你要拷的東西右擊滑鼠選復制,然後打B文件夾右擊滑鼠選粘貼就OK了
怎樣將文件夾里的文件詳細信息導入EXCEL
打開DOS,運行一下dir命令,右鍵->標志,選擇內容,按鍵Ctrl+C,在Excel中粘貼
⑵ 批量更改文件名,並提取至EXCEL
如下兩種方法可供選擇:bat批量處理和VBA。
1、BAT批處理文件
A. 獲取文件名
選定部分或全選所有文件 > Shift+右鍵 > 復制為路徑 > 粘貼到Excel
B. 編輯命令符
l 替換文件名前的路徑(全部替換)
l 生成如下字元(空格不可缺少): REN_原文件名_新文件名
可以使用EXCEL公式批量處理:
例如如下公式可將文件名前增加序列號1,2,3等。
=CONCATENATE("REN","",A1," ",ROW(A1),A1)生成批處理文件
C. 批處理
l 文件夾內新建txt文件
l 復制所有excel中編輯好的字元到txt文件中
l 文件擴展名更改為bat,運行。
2、VBA法
alt+F11,復制如下代碼到代碼欄,F5運行
SubRename_()
Dimmy_Path,my_DocAsString
WithApplication.FileDialog(msoFileDialogFolderPicker)'定位文件夾
.Show
.AllowMultiSelect=False
my_Path=.SelectedItems(1)
EndWith
DimiAsSingle
i=1
my_Doc=Dir(my_Path&""&"*")'遍歷所有文件
DoWhileLen(my_Doc)<>0
Namemy_Path&""&my_DocAsmy_Path&""&i&my_Doc'更名:增加序號
i=i+1
my_Doc=Dir
Loop
my_Doc=Dir(my_Path&""&"*")
i=1
DoWhileLen(my_Doc)<>0'復制到excel
Cells(i,1)=my_Doc
i=i+1
my_Doc=Dir
Loop
EndSub
⑶ 如何取出excel中的工作表名和工作薄名
Excel中可以利用抄workbook函數提取襲工作表名和工作簿名。
軟體版本:Office2007
方法如下:
1.點擊公式菜單中的「名稱管理器」: