Question

我想将文件保存在名称根据上个月名称更改的目录中。这是代码：

name_month = MonthName(Month(Date) - 1) 

Set Newbook = Workbooks.Add
    With Newbook
.Title = "TESO1"
.SaveAs Filename:="C:\Users\ee31264\Desktop\Mensile Automat\name_month \send\TESO1.xlsx"
End With

Newbook.Close

不幸的是，我写的名字_month并没有读出我的意思！

Answer 1

那是因为你需要告诉Excel你对它说的内容应该是一个变量还是一串文本。使用＆＃34;＆＃34;说它是一串文字，不应该被评估。

使用此：

<!DOCTYPE html>
<html>
   <head>
      <title></title>
      <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
   </head>
   <body>
      <div class="inner" onclick="functionName(event,this)">a</div>
      <div class="inner" onclick="functionName(event,this)">b</div>
      <div class="inner" onclick="functionName(event,this)">c</div>
      <div class="inner" onclick="functionName(event,this)">d</div>
      <div class="inner" onclick="functionName(event,this)">e</div>
   </body>
   <script type="text/javascript">
function functionName(event, $this) {
   event.preventDefault();
   if ($($this)[0].className == "inner outer") {
      $($this)[0].className = "inner"
   } else {
      $($this)[0].className = "inner outer"
   }
   for (var i = 0; i < $('.inner').length; i++) {
      if ($('.inner')[i] != $($this)[0]) {
         $('.inner')[i].className = "inner";
      };
   }
}
   </script>
   <style type="text/css">
      .inner.outer{
      background: red;
      }
      .inner{
      background: yellow;
      }
   </style>
</html>

另请记住，在较新版本的Excel中，您还必须使用Filename:="C:\Users\ee31264\Desktop\Mensile Automat\" & name_month & "\send\TESO1.xlsx"指定文件格式（xlsx，使用52表示xlsm）。

Vba更改目录以保存

1 个答案: