Note: The other languages of the website are Google-translated. Back to English
登入 立即註冊

如何用單元格值保存Excel文件？

使用工作簿時，您是否曾考慮過根據單元格內容保存Excel文件？ 例如，您在單元格A1中具有“銷售價格”，並且您想要將工作簿保存為名稱“銷售價格”。 當然，您可以在“另存為”對話框中鍵入名稱，然後將其保存。 但這將是您工作量低下的一種方法。 今天，我將討論解決它的快速技巧。

使用VBA代碼以特定的單元格值保存Excel文件

Office選項卡在Office中啟用選項卡式編輯和瀏覽，並使您的工作更加輕鬆...
Kutools for Excel 解決了你的大部分問題，並將你的生產力提高了 80%
  • 重用任何東西： 將最常用或最複雜的公式，圖表等添加到您的收藏夾中，並在將來快速重用它們。
  • 超過20種文字功能： 從文本字符串中提取數字； 提取或刪除部分文字； 將數字和貨幣轉換為英文單詞。
  • 合併工具：將多個工作簿和工作表合二為一； 合併多個單元格/行/列，而不會丟失數據； 合併重複的行和總和。
  • 分割工具：根據價值將數據分割成多個工作表； 一本工作簿可轉換為多個Excel，PDF或CSV文件； 一列到多列。
  • 跳過粘貼 隱藏/過濾的行； 計數與求和 按背景色; 向多個收件人批量發送個性化電子郵件。
  • 超級過濾器： 創建高級過濾方案並應用於任何工作表； 分類 按星期，日期，頻率等 篩選 用粗體，公式，註釋...
  • 超過300個強大的功能； 適用於 Office 2007-2021 和 365； 支持所有語言； 在您的企業或組織中輕鬆部署。

箭頭藍色右氣泡 使用VBA代碼以特定的單元格值保存Excel文件

以下VBA代碼可以幫助您保存具有指定單元格值的工作簿，請執行以下操作：

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications窗口.

2。 點擊 插入 > 模塊，然後將以下代碼粘貼到 模塊窗口.

VBA代碼：使用特定的單元格值保存Excel文件

Private Sub filename_cellvalue()
'Update 20141112
Dim Path As String
Dim filename As String
Path = "C:\Users\dt\Desktop\my information\"
filename = Range("A1")
ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
End Sub

3。 然後按 F5 鍵執行代碼，您的工作簿已被命名為單元格A1的單元格內容。 看截圖：

doc儲存單元格值1

筆記：

1.您可以通過將A1修改為上述代碼中的其他單元格引用來指定任何單元格值作為文件名。

2.您的活動工作簿將保存到以下文件夾中 C：\ Users \ dt \ Desktop \ my information \ （將位置粘貼到該位置時，必須保留最後一個斜杠），您可以根據需要更改路徑。

相關文章：

如何在Excel中使用日期和時間保存文件？

如何在Excel的標題欄或工具欄中顯示文件路徑？

最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題，並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式，圖表 以及您以前使用過的任何東西； 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 （輕鬆編輯多行文本和公式）； 閱讀版式 （輕鬆讀取和編輯大量單元格）； 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據； 拆分單元格內容； 合併重複的行/列...防止細胞重複； 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 （所有單元格都是空的）； 超級查找和模糊查找 在許多工作簿中； 隨機選擇...
  • 確切的副本 多個單元格，無需更改公式參考； 自動創建參考 到多張紙； 插入項目符號，複選框等...
  • 提取文字，添加文本，按位置刪除， 刪除空間; 創建和打印分頁小計； 在單元格內容和註釋之間轉換...
  • 超級濾鏡 （將過濾方案保存並應用於其他工作表）； 高級排序 按月/週/日，頻率及更多； 特殊過濾器 用粗體，斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表； 將數據分割成多個工作表; 批量轉換xls，xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面，使您的工作更加輕鬆

  • 在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%，每天為您減少數百次鼠標點擊！
officetab底部
按評論排序
最舊的
最新的
留言 (33)
還沒有評分。 成為第一位評論！
克里斯
克里斯
網站主持人對此評論進行了最小化
模塊不保存在 .XlsX 中； 認為它與第 7 行有關；； “.xls”，文件格式：=xlNormal； 另外，如何修改以從連接的 3 個不同單元格中獲取值？ 例如：名字、姓氏、日期； 在代碼的第 6 行？
回复
0
0
肖恩
肖恩     克里斯
網站主持人對此評論進行了最小化
將文件名變暗為字符串
將文件名 1 作為字符串變暗
將文件名 2 作為字符串變暗

路徑 = "C:\Users\dt\Desktop\我的信息\"
文件名 = 範圍（“A1”）
文件名 1 = 範圍（“A2”）
文件名 2 = 範圍（“A3”）
ActiveWorkbook.SaveAs 文件名:=路徑 & 文件名 & "-" & 文件名1 & "-" & 文件名2 ".xls", FileFormat:=xlNormal
回复
0
0
擔
擔
網站主持人對此評論進行了最小化
克里斯。 您可以將其連接到一個單獨的單元格中，然後將該單元格引用為您的文件名值。
回复
0
0
阿拉納
阿拉納
網站主持人對此評論進行了最小化
嗨，我的只會保存為路徑和文件名。 我只希望從單元格中引用的文件名僅保存。 你能幫我麼？
回复
0
0
格雷格
格雷格
網站主持人對此評論進行了最小化
這很酷......但似乎有一個我不知道如何糾正的錯誤。 我在啟用宏的模板中使用它。 我打開模板，進行更改/更新，按 F5 運行宏……然後……彈出“轉到”對話框，希望我鍵入“參考”。但是，如果我按 ALT F11，然後按 F5，新的 .xls 文件按預期保存。 我總是需要打開 Visual Basic 模塊來運行這個“保存”過程嗎？
回复
0
0
肯·蓋恩斯
肯·蓋恩斯
網站主持人對此評論進行了最小化
我有一個不想被覆蓋的模板，因此要求用戶將按日期命名的文件保存到其中一個字段中。 我不希望用戶必須打開工具然後選擇/運行宏。 他們也可以輸入文件名。
回复
0
0
馬丁小號
馬丁小號     肯·蓋恩斯
網站主持人對此評論進行了最小化
您可以將 =NOW() 作為參數添加到單元格中的文件名中，然後再將其提取到宏中（並且還可以在頁面的角落放置一個標準按鈕，這樣員工就不必打開任何工具
回复
0
0
離子D
離子D
網站主持人對此評論進行了最小化
你們是救生員。 謝謝！
回复
0
0
色溫
色溫
網站主持人對此評論進行了最小化
我需要另存為 .csv 文件。 我將如何更改它以使其另存為 .csv 文件？ Private Sub filename_cellvalue() 'Update 20141112 Dim Path As String Dim Filename As String Path = "C:\Doorlister\import\DoorJob\" filename = Range("AC2") ActiveWorkbook.SaveAs filename:=Path & filename & ".xls ", FileFormat:=xlNormal End Sub 提前感謝您的幫助！
回复
0
0
喬治
喬治     色溫
網站主持人對此評論進行了最小化
我想我在這裡做錯了什麼......

它在 Sheets("shitname").Select 行中給了我一個錯誤

當我將“shitname”命名為單元格 K10 時，可能我做錯了什麼

我想將工作表更改為與單元格 K10 完全相同的另一個工作表


' gicsel 宏
'
' 鍵盤快捷鍵：Ctrl+Shift+C
'
Selection.Copy
表（“debagat”）。選擇
行（“8：8”）。選擇
ActiveSheet.Paste
將路徑變暗為字符串
路徑 = "C:\cgxml\"
將文件名變暗為字符串
文件名 = 範圍（“A8”）
Dim shitname 作為字符串
狗屎名 = 範圍（“K10”）
Sheets("shitname").Select
Application.CutCopyMode = False
ActiveWorkbook.SaveAs filename:=Path & filename & ".xml", FileFormat:=xltxt, CreateBackup:=False
工作表（“總計”）。選擇
ActiveCell.Offset(1, 0).EntireRow.Select
END SUB
回复
0
0
克里斯
克里斯
網站主持人對此評論進行了最小化
這很好用......謝謝，但我需要另存為PDF......有什麼想法嗎？

謝謝

克里斯
回复
0
0
馬丁小號
馬丁小號     克里斯
網站主持人對此評論進行了最小化
與上述相同，但將 ActiveWorkbook.SaveAs 替換為： "ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _"C:\input filenamne.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=真
回复
0
0
瓦爾德馬爾·佩尼亞
瓦爾德馬爾·佩尼亞     馬丁小號
網站主持人對此評論進行了最小化
感謝您的反饋，對我幫助很大。
回复
0
0
基南
基南
網站主持人對此評論進行了最小化
嗨，
如果我想保存活動工作表但使用工作表 1 單元格值，我應該添加什麼？
回复
0
0
燕姿
燕姿
網站主持人對此評論進行了最小化
請幫助...我已經設法做所有事情。 但它將文檔保存到我的文檔而不是指定的服務器中......



Private Sub CommandButton1_Click（）
將路徑變暗為字符串
將 FileName1 調暗為字符串
將 FileName2 調暗為字符串
將 FileName3 調暗為字符串
將 FileName4 調暗為字符串
將 FileName5 調暗為字符串
路徑 = "J:\Protection Services\Documents\Booysendal 安全"
文件名 1 = 範圍（“A2”）
文件名 2 = 範圍（“B2”）
文件名 3 = 範圍（“C2”）
文件名 4 = 範圍（“D2”）
文件名 5 = 範圍（“E2”）
ActiveWorkbook.SaveAs 文件名:=FileName1 & "-" & FileName2 & "-" & FileName3 & "-" & FileName4 & "-" & FileName5 & ".xls", FileFormat:=xlNormal
END SUB
回复
0
0
邁克爾·Z
邁克爾·Z     燕姿
網站主持人對此評論進行了最小化
在安全之後和引號之前添加反斜杠... ...security\"
回复
0
0
珍妮絲·伯比奇
珍妮絲·伯比奇
網站主持人對此評論進行了最小化
如果您只想定義文件名但每次保存時都可以選擇文件路徑怎麼辦？

您還可以為文件名指定多個單元格。 單元格也被合併。

每次保存到不同的文件路徑

使用多個單元格作為文件名
回复
0
0
布魯斯·麥金太爾
布魯斯·麥金太爾
網站主持人對此評論進行了最小化
好的，所以我使用工作表中的按鈕讓這個工作正常。 現在我希望它在初始另存為後正常保存。 這可以做到嗎？ 使用相同的保存按鈕？
謝謝布魯斯
回复
0
0
拉吉夫
拉吉夫
網站主持人對此評論進行了最小化
如何創建一個宏以將多個工作表與其單元格值保存為文件名
謝謝，
拉吉夫
回复
0
0
rad
rad
網站主持人對此評論進行了最小化
大家好！

如何使用宏將重複輸入保存在相同的單元格中，在其他單元格中？

在 sheet1 中，我在 A1、B1、C1 中輸入數據，一天 n 次。 在 sheet2 中，我需要將所有這些記錄保存在 A2、B2、C2、A3、B3、C3 等中。Tnx！
回复
0
0
艾哈邁德
艾哈邁德
網站主持人對此評論進行了最小化
喜的朋友，
我有問題，如果有人可以幫助我，我會很高興
我在驅動器“F”和文件夾“ABS”中有一個文件 - 我的文件名是“Listdata”
在我桌面上的 Excel 文件中，我希望單元格（4,4）從“ABS”表（1）和單元格（2,2）中檢索數據
下面的代碼
Sub Macro1（）
activesheet.Cells(4, 4).Value = "F:\ABS\" & listdata & ".xlsx" & Sheets(1).Cells(2, 2).Value
END SUB
但它不能正常工作
謝謝朋友
回复
0
0
添
添
網站主持人對此評論進行了最小化
嗨，我正在嘗試使用此代碼，但是當我嘗試執行時，出現運行時 1004 錯誤，並將第 7 行突出顯示為無效：ActiveWorkbook.SaveAs 文件名：=路徑和文件名和“.xls”，文件格式：=xlNormal
我該如何解決這個問題？ 我用的是office 365
回复
0
0
布魯納
布魯納
網站主持人對此評論進行了最小化
Se a célula de referencia estiver em uma outra planilha já aberta？ 科莫臉？
回复
0
0
伊莎貝拉
伊莎貝拉
網站主持人對此評論進行了最小化
你好。 我很高興它可以工作，但對我來說，它說“BASIC 運行時錯誤。Sob-procedure 或函數過程未定義。” 和箭頭指示第 6 行。我該怎麼辦？
回复
0
0
莫雷納
莫雷納
網站主持人對此評論進行了最小化
我有一個控制按鈕，用於將具有特定名稱的 PDF 保存到已經工作的特定位置，但我想修改代碼，因為文件名是活動工作表的名稱加上另一個工作表中特定單元格的值。 我怎麼做？ 這就是我保存為 PDF 的內容：


Private Sub CommandButton1_Click（）
Application.ScreenUpdating = False
ActiveSheet.ExportAsFixedFormat 類型：=xlTypePDF，_
文件名：="\\U:\Documents\My_IT_Stuff\T&A\PP11", _
OpenAfterPublish：=否
Application.ScreenUpdating = True
END SUB

感謝您！
回复
即時報告
0
0
法亞茲
法亞茲
網站主持人對此評論進行了最小化
任何人都可以請幫助解決方案，如果單元格不為空白，我已經設法正確獲得輸出

私人子 Saveas()

暗淡的路徑作為字符串

將文件名 1 作為字符串變暗



路徑 = "C:\User\Compwork\"



filename1 = 路徑 & Range("G4") & " " & "-" & " " & Range("G6") & " " & "-" & " " & Range("H7") & " " & "VTError "

Application.DisplayAlerts = False

ActiveWorkbook.Saveas filename1, FileFormat:=52, CreateBackup:=False

ThisWorkbook.Worksheets("report").ExportAsFixedFormat Type:=x1typePDF, Filename:=filename1

Application.DisplayAlerts = True

ActiveWorkbook.Close



END SUB



但是，我的問題是，如果單元格值為 NULL，我想保存文件名而不留空格，例如，如果 G6 值為空白，那麼我喜歡輸出“G4-H7 VTError”。
有沒有辦法解決這個問題？


謝謝。
回复
0
0
這裡還沒有評論
載入更多
留下你的意見
客人
以訪客身份發帖
登入
×
評價此帖子：
重設
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護