1樓：匿名使用者
dim f, f1, f3, mpath as string, f2 as integer
mpath = "d:/test/" '要儲存的資料夾
f1 = "test" '檔名的文字部分
f2 = 1 '檔名的數字部分
f3 = ".txt" '檔名副檔名
f = mpath + f1 + trim(f2) + f3 '要查詢的檔名
'查詢該檔案是否存在，如果存在，再找下一個是否存在，....
do until dir(f) = ""
f2 = f2 + 1
f = mpath + f1 + trim(f2) + f3 '要查詢的檔名
loop
'複製檔案
filecopy "d:/test/test.txt", f '從d盤複製test.txt到指定目錄
' "d:/test/test.txt"是測試的檔案，
2樓：姓王的
用dir函式查詢檔案，對檔名字元分解處理，找出最大數字儲存有一個變數裡，找完後加1組合後為新檔名。**如下：（假定要查詢的檔案位置在d:\abc\下）
dim s$, n%, n1%
s = dir("d:\abc\*檔案*")do while s <> ""
n1 = val(mid(s, instr(s, "檔案") + 2))
if n1 > n then n = n1s = dir'繼續查詢
loop
s = "檔案" & n + 1 's就是新檔名，如果有副檔名應加上
如何運用vba將指定路徑下的某一檔案複製到另一指定路徑下
3樓：灩麗
1、首先開啟工作表，點選【開發工具】下的【visual basic 】選項。
2、開啟vba工程視窗後，在左側的「thisworkbook」上面單擊右鍵，選擇「插入」，「模組」。
3、在「模組1」的**視窗裡面輸入以下vba**。
4、按下f5鍵，或者點選vba工程視窗上面的「執行」圖示執行vba程式，之後就會自動複製工作表，改變工作表名稱，改變工作表標籤顏色等。
5、vba程式執行完成之後，將該模組移除，以免再次執行時已經存在該工作表名稱而報錯，在移除之前，將vba程式模組匯出，或者將vba程式複製到記事本、word文件等，以便以後使用。
4樓：
1、我們需要批量提取新建資料夾裡的檔案完整路徑，開啟批量提取檔名的excel檔案。
2、單擊檢視按鈕中的檢視巨集按鈕。
3、在彈出的對話方塊中找到對應操作的巨集命令，批量獲取檔名，並單擊執行。
4、接著會彈出檔案選擇對話方塊，我們需要找到對應檔案，並單擊確定。
5、確定後，即可看到檔案的路徑已經找到。
6、接著我們需要輸入函式將檔案路徑和檔名合併為完整路徑，函式為簡單的&文字連結。
7、最後把巨集**分享給大家，需要開啟工作簿，然後按快捷鍵alt+f11開啟巨集視窗。
8、然後插入一個模組，並將**寫入。
如何用vba實現選擇開啟一個excel並複製裡面的資料
5樓：魚木混豬喲
假設開啟的檔案是d盤123資料夾中的1.xls檔案，並將sheet1中的內容，複製到當前excel檔案的sheet1工作表中，以下是**及其解釋：
sub main()
workbooks.open filename:="d:
\123\1.xls" '通過open的方法開啟excel檔案，filename即開啟的檔名，必須包含完整的路徑和完整的工作名
activeworkbook.sheets(1).cells.
copy thisworkbook.sheets(1).cells '這裡包含了複製和貼上，copy前面的是要複製的物件，而後面是要貼上的目的區域，cells是表示對整個工作表的內容進行復制
end sub
6樓：匿名使用者
sub macro1()
workbooks.open filename:="e:\111\111.xls"
range("a4:d43").copy
windows("book1").selectedsheets("sheet1").paste
end sub
關於excel，vba. 用vba複製某個工作表並另存為另一個檔案。
請問如何用VBA將EXCEL檔案中的資料複製到別EXCEL檔案相同的位置
sheet1的區域a1 c3拷貝到sheet2的區域a1 c3 sheet1.range a1 c3 copy sheet2.range a1 c3 丙雅弘雨凝 sub aaa dim sh1 as worksheet dim sh2 as worksheet set sh1 workbooks 1...
excel中如何用vba將工作表sheet1重新命名，因為要重
20時13分14秒 sub rename mydate format date,409 dd mmm yy 得到美式的日期格式 mymonth split mydate,split此日期格式，找到當前的月份的英語簡寫 myname ucase mymonth 1 ucase mymonth 0 ye...
請教如何利用VBA實現將工作表複製到另工作簿中
依然特雷西 1 開發工具 vb。2 輸入 sub 複製表 dim mybook1 as workbook set mybook1 workbooks.open c users administrator desktop 工作表1.xls sheets 移動表 select sheets 移動表 co...