Excel 为什么文件名开头会出现Temp这个词

我正在将文件保存到Windows临时文件夹，以便将其作为附件添加到电子邮件中。由于某种原因，“Temp”这个词一直被添加到文件名中。它是如何出现的以及如何预防

注意！

此工作簿.Sheets（“其他数据”）.Range（“AK2”）.Value

中存在不包含单词“Temp”的项目编号

以下是我保存文件的代码：

    Fname = Environ("temp") & _
    ThisWorkbook.Sheets("Other Data").Range("AK2").Value & ", " & _
    "review" & ".pdf"

以下是Outlook代码：

Sub CreateNewOutlookAppointment()

Dim olApp As Outlook.Application
Dim olAppt As Outlook.AppointmentItem
Dim myInspector As Outlook.Inspector

Set olAppt = Nothing
Set olApp = Outlook.Application
Set olAppt = olApp.CreateItem(olAppointmentItem)

   Set myInspector = olAppt.GetInspector

   myInspector.Activate

    With olAppt
        .Subject = "review" & ", " & ThisWorkbook.Sheets("Other Data").Range("P23").Value
        ThisWorkbook.Sheets("Templates").Range("M202:M223").Copy
        .Display
        .GetInspector.WordEditor.Windows(1).Selection.PasteAndFormat wdPASTERTF

        .Attachments.Add Environ$("Temp") & _
        ThisWorkbook.Sheets("Other Data").Range("AK2").Value & ", " & _
        "review" & ".pdf"

    End With

End Sub

像这样的

语法

expression.Add( _Source_ , _Type_ , _Position_ , _DisplayName_ )

仅当邮件项目为富文本格式且类型设置为olByValue时，此参数才适用：该名称显示在附件的检查器对象中或查看附件的属性时。如果邮件项目为纯文本或HTML格式，则使用源参数中的文件名显示附件

Sub AddAttachment() 
 Dim myItem As Outlook.MailItem 
 Dim myAttachments As Outlook.Attachments 

 Set myItem = Application.CreateItem(olMailItem) 
 Set myAttachments = myItem.Attachments 
 myAttachments.Add "C:\Test.doc", _ 
 olByValue, 1, "Test" 
 myItem.Display 
End Sub

Environ$（“Temp”）

返回临时文件夹的名称，例如

C:\Users\xyz\AppData\Local\Temp

。您的单元格（

AK2

）可能包含一个文件名

当您连接这两个部分时，您会得到类似于

C:\Users\xyz\AppData\Local\TempMyFile

-这样您就可以在文件夹

Local

中创建一个名为

TempMyFile

的文件（或者您机器上的Temp父文件夹）

---

您只需在（Temp-）路径和文件名之间添加一个“\”字符。

环境（“Temp”）会给您带来什么？您可能需要在Temp文件夹和单元格内容之间添加一个“\”。@FunThomas多么简单啊！您可以将其添加为答案：）