vba放入指定文件夾

㈠ 請問如何用VBA實現將EXCEL中的一個工作表保存在指定文件夾內

ThisWorkbook.Path 改成你需要的路徑就可以了，比如改成 「C:",就在C盤根目錄下

㈡ 用VBA如何批量將工作表保存到指定的文件夾

用vba保存到指定的文件夾，這種情況下，我們就是在電腦上先建立一個文件夾，然後上傳保存就可以了

㈢ Excel vba如何移動文件到指定的文件夾

Name "原文件夾\文件名" As "指定文件夾\文件名"

㈣ 用vba如何導入一個文件夾里的文件絕對路徑(包含擴展名)到excel里

Sub MMM()

Dim myPath$, myFile$, i&

Application.ScreenUpdating = False

myPath = "D:\新建文件夾" & "\"

myFile = Dir(myPath & "*.*")

Do While myFile <> ""

i = i + 1

Cells(i, 1) = myPath & myFile

myFile = Dir

Loop

Application.ScreenUpdating = True

End Sub

㈤ 如何用VBA實現導入自定義路徑的Excel文件

方法/步驟
首先，Excel已有自定義函數（這里就不多說了，如果不了解自定義函數的，可以在我關於自定義函數的經驗中找找看）。
點擊Excel左上角的」Office按鈕「，選擇」另存為「，」其他格式「。
在彈出的新對話框中，選擇」Excel
97-2003載入宏（*.xla），然後選擇保存的路徑和保存的文件名，點擊「保存」鍵即可。
到這一步，實際上就完成了製作自定義載入項的工作，接下來，就是添加自定義載入項到Excel中了。
隨便打開一個新的Excel文件，點擊左上角的「Office按鈕」，選擇下面的「Excel選項」，繼續選擇「載入項」。
然後點擊下方的「轉到」按鈕。
這時候又彈出一個新的對話框出來，選擇其中的「瀏覽」按鈕。
此時會出現一個「打開」對話框，找到在步驟3中儲存的xla格式的文件，並點擊「確定」按鈕。
8
這時候，就可以看到左側多了一個文件名，這說明按照正確的路徑找到了這個文件，點擊「確定」按鈕，返回Excel。
9
這時候，就可以在Excel中，像自帶的函數一樣，隨意使用模塊中的兩個函數了。而且任意時候，打開Excel，這個函數都是可以使用的。

㈥ 請大神幫忙這個vba代碼，選擇excel表格里部分單元格內容，生成bat文件，並放到指定文件夾下。

DOS命令你都已經寫好了，將數據復制到記

事本中保存一下，然後將這個txt文件名後綴改

成.dat 文件，雙擊自動執行命令，文件就被重命名。

㈦ 如何用VBA將文件名中含有相同字元的文件從一個文件夾保存到另一個指定文件夾中

參考使用代碼：
Private Sub FileChecking()
Dim CheckFolder$, TargetFolder$, KeyWord$, ic%
CheckFolder = "D:\T1\" '檢查路徑，依需設置
TargetFolder = "D:\T2\" '備份路徑，依需設置
KeyWord = "2022" '關鍵詞，依需設置
ic = 1
For Each f In CreateObject("scripting.FileSystemObject").GetFolder(CheckFolder).Files
If f.Name Like "*" & KeyWord & "*" Then
FileCopy CheckFolder & f.Name, TargetFolder & f.Name
ic = ic + 1
End If
Next
MsgBox ic & "個文件復制完成!"
End Sub

以上希望能幫上忙！

㈧ vba操作文件夾

Sub 拷貝文件夾()

On Error Resume Next

Set fs = CreateObject("Scripting.FileSystemObject")

For i = 2 To 100

If Cells(i, 1) = "" Then Exit For

OldString = "路徑說明書"

NewString = "路徑" & Cells(i, 1) & "說明書"

fs.Copyfolder OldString, NewString

Set fs = Nothing

Next

End Sub

㈨ 使用VBA搜索文件並將文件放到指定文件夾

Dim i, j As Long
Dim nPath As String '存放目錄名
Dim nTargetPath As String '目標目錄名
Dim nFile As String '存放要搜索的文件名

nTargetPath = "d:\mm" '將80個文件移動到 d:\mm 中，當然目錄名可以自己改

j = 0 '用於統計移動了多少個文件
For i = 20130501 To 20130529 Step 1
nPath = ""
nFile = ""
nPath = "c:\" + CStr(i) '存放目錄名
If Dir(nPath, vbDirectory) <> "" Then '搜索目錄是否存在
nFile = nPath + "\" + "136666" '要搜索的文件名
If Dir(nFile, vbArchive + vbHidden + vbNormal + vbReadOnly) <> "" Then '搜索指定文件是否存在
FileCopy nFile, nTargetPath
If Dir(nTargetPath + "136666") Then Kill (nFile) '如果移動成功則刪除原先的文件
j = j + 1
End If
nFile = nPath + "\" + "148773" '要搜索的文件名
If Dir(nFile, vbArchive + vbHidden + vbNormal + vbReadOnly) <> "" Then '搜索指定文件是否存在
FileCopy nFile, nTargetPath
If Dir(nTargetPath + "148773") Then Kill (nFile) '如果移動成功則刪除原先的文件
j = j + 1
End If
'.......
End If
If j > 80 Then Exit For '如果移動文件數超過80則退出。
Next
這個可以滿足你的要求，只要在相應的地方改成你自己的就行了。