vocus目前還不能貼程式碼的樣子，殘念
https://pastebin.com/hAQr5jnC
程式碼在網址哩，在Excel裡Alt+F11開啟巨集後貼上
將"絕對路徑"更改成想要的路徑，例如"C:\split"
回到Excel，把想存的Sheet用Ctrl或Shift同時選取後
Alt+F8

音樂藝文

學習

創作

<div class="draft-block draft--p left"><span style="text-decoration: line-through; ">vocus目前還不能貼程式碼的樣子，殘念</span></div>
<div class="draft-block draft--p left"><a href="https://pastebin.com/hAQr5jnC" target="_blank" class="draft--a">https://pastebin.com/hAQr5jnC</a></div>
<div class="draft-block draft--p left">程式碼在網址哩，在Excel裡Alt+F11開啟巨集後貼上</div>
<div class="draft-block draft--p left">將"絕對路徑"更改成想要的路徑，例如"C:\split"</div>
<div class="draft-block draft--p left">回到Excel，把想存的Sheet用Ctrl或Shift同時選取後</div>
<div class="draft-block draft--p left">Alt+F8，按下執行即可</div>
<div class="hr__AtomHrContainer-sc-1afmttx-0 dsBIOm draft-block"><pre class="hr__HrWrapper-sc-1afmttx-1 hUbgX draft--hr"><hr class="hr__Hr-sc-1afmttx-2 iegMSY"></pre></div>
<div class="draft-block draft--p left">2021/12/24更新</div>
<div class="draft-block draft--p left">方格子更新後突然可以貼程式碼了XD，如下：</div>
<pre class="public-DraftStyleDefault-pre draft-block"><pre class="draft--code-block">Sub SaveSheetAsCSV()</pre><pre class="draft--code-block">Dim theName As String</pre><pre class="draft--code-block">On Error GoTo Line1</pre><pre class="draft--code-block">For Each sht In ActiveWindow.SelectedSheets</pre><pre class="draft--code-block">sht.Copy</pre><pre class="draft--code-block">theName = "絕對路徑" &amp; sht.Name &amp; ".csv"</pre><pre class="draft--code-block">ActiveWorkbook.SaveAs Filename:=theName, FileFormat:=xlCSV</pre><pre class="draft--code-block">ActiveWindow.Close</pre><pre class="draft--code-block">Next</pre><pre class="draft--code-block">Line1:</pre><pre class="draft--code-block">End Sub</pre></pre>











<p>vocus目前還不能貼程式碼的樣子，殘念</p>
<p><a href="https://pastebin.com/hAQr5jnC">https://pastebin.com/hAQr5jnC</a></p>
<p>程式碼在網址哩，在Excel裡Alt+F11開啟巨集後貼上</p>
<p>將"絕對路徑"更改成想要的路徑，例如"C:\split"</p>
<p>回到Excel，把想存的Sheet用Ctrl或Shift同時選取後</p>
<p>Alt+F8，按下執行即可</p>
<p><br></p>
<p>2021/12/24更新</p>
<p>方格子更新後突然可以貼程式碼了XD，如下：</p>
<pre><code>Sub SaveSheetAsCSV()</code></pre>
<pre><code>Dim theName As String</code></pre>
<pre><code>On Error GoTo Line1</code></pre>
<pre><code>For Each sht In ActiveWindow.SelectedSheets</code></pre>
<pre><code>sht.Copy</code></pre>
<pre><code>theName = "絕對路徑" &amp; sht.Name &amp; ".csv"</code></pre>
<pre><code>ActiveWorkbook.SaveAs Filename:=theName, FileFormat:=xlCSV</code></pre>
<pre><code>ActiveWindow.Close</code></pre>
<pre><code>Next</code></pre>
<pre><code>Line1:</code></pre>
<pre><code>End Sub</code></pre>

vocus目前還不能貼程式碼的樣子，殘念

程式碼在網址哩，在Excel裡Alt+F11開啟巨集後貼上

將"絕對路徑"更改成想要的路徑，例如"C:\split"

回到Excel，把想存的Sheet用Ctrl或Shift同時選取後

方格子更新後突然可以貼程式碼了XD，如下：

For Each sht In ActiveWindow.SelectedSheets

theName = "絕對路徑" & sht.Name & ".csv"

ActiveWorkbook.SaveAs Filename:=theName, FileFormat:=xlCSV

[Excel] 將所有工作表個別存成CSV