2017-08-08 16 views
0

タイムスタンプを使用して頻繁に生成され、名前が付けられた.csvファイルがあります。私はそれでマクロを実行し、.csvファイルを更新する必要があります。このソリューションをRun Excel Macro from Outside Excel Using VBScript From Command Lineマクロを実行するために使用しましたが、私の問題は、マクロが有効になっていないまま.csvファイルを保存することができず、変更がその中に保存されていないことです。私はcsvファイルを1枚しか持っていません。助けてくれてありがとう! これは、(そのリンクから得た)私が使用しているコードは、次のとおりです。マクロenabedブック内のcsvファイルを開き、マクロを有効にしないでcvsファイルを保存する

Dim oFSO 
    Dim oShell, oExcel, oFile, oSheet 
    Set oFSO = CreateObject("Scripting.FileSystemObject") 
    Set oShell = CreateObject("WScript.Shell") 
    Set oExcel = CreateObject("Excel.Application") 
    Set wb2 = oExcel.Workbooks.Open("D:\.....\PERSONAL.XLSB") 'Specify  foldername here 

    oExcel.DisplayAlerts = False 

    For Each oFile In oFSO.GetFolder("D:\..\Output1\").Files 
    If LCase(oFSO.GetExtensionName(oFile)) = "csv" Then 
  
         With oExcel.Workbooks.Open(oFile, 0, True, , , , True, , , , False, , False) 
     oExcel.Run wb2.Name & "!final1" 
         
         End With 
    End If 
    Next 
+0

https://stackoverflow.com/questions/10551353/saving-excel-worksheet-to-csv-filesを必要とする作業を行う必要があり-with-filenameworksheet-name-using-vbはこちらをご覧ください – Luuklag

答えて

0

csvファイルはテキストファイルです。テキストエディタでそれを開き、あなたが表示されます。

内部にマクロを埋め込む機能はありません。

は、Excelファイル内のマクロを持っている必要があり、それはあなたが

+0

こんにちは、返信いただきありがとうございます。私は個人のブックからマクロを実行しようとしていると私は "oExcel.Workbooks.Open(oFile、0、True、、、True、、False、False)"と思う私の.csvファイルを開くその中のマクロ。実行時にoExcel.Saveを使用すると、編集したファイルを保存するように求められます。私はこれを自動的に保存する必要があります。 – Clueless

関連する問題