用于自动保存Excel工作表的脚本

时间:2015-02-08 10:07:50

标签: excel

你能给我一个线索或编码......这将保存我在指定路径中每1分钟打开的Excel表格(即使最小化)......

不妨碍Excel的任何操作...因为通过网络查询功能我将从网页更新工作表...

<html>
<head>

    var intInterval = 0 importquotes();

function importquotes()
{
filename = "E:\\Desktopp\\ami\\Daily.csv";//// ( This is the file i want to save periodically)
AmiBroker = new ActiveXObject("Broker.Application" );

 AmiBroker.Import( 0, filename, "lanka.format" );
 AmiBroker.RefreshAll();
 }
 </script>
 <button onclick="intInterval=window.setinterval('importdata()',60000);">
 start
 </button>
 <button onclick="intInterval=window.clearinterval(intInterval);">
 stop
 </button>
 </body>
   </html>

在avobe代码中你可以看到我将Daily.csv数据导入我的数据库....我想以1分钟的间隔保存那张excel表....

2 个答案:

答案 0 :(得分:0)

您的问题实际上是&#34;如何从HTML程序(即JavaScript)中将任何内容保存到我的本地计算机&#34;。如果您在IE,Chrome,任何网络浏览器上运行,由于安全问题,答案是没办法的。但是,尝试Microsoft HTA并搜索ado = new ActiveXObject(&#34; ADODB.Stream&#34;);和fso = new ActiveXObject(&#34; Scripting.FileSystemObject&#34;);这些是访问本地计算机文件系统的两个可用接口。如果您的数据不包含ANSI字符,请使用ADO,例如UTF-8。

答案 1 :(得分:0)

你想要在VBScript中使用类似下面的东西,但要保存而不是阅读:

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\Scripts\New_users.xls")

intRow = 2

Do Until objExcel.Cells(intRow,1).Value = ""
    Wscript.Echo "CN: " & objExcel.Cells(intRow, 1).Value
    Wscript.Echo "sAMAccountName: " & objExcel.Cells(intRow, 2).Value
    Wscript.Echo "GivenName: " & objExcel.Cells(intRow, 3).Value
    Wscript.Echo "LastName: " & objExcel.Cells(intRow, 4).Value
    intRow = intRow + 1
Loop

objExcel.Quit

您可以将1分钟计时器放在VBA宏的Excel中,也可以在VBScript中编写。