用Excel进行读写（非常奇怪）

debugcn 发表于 Dev

间谍

我有一个应用程序，该应用程序应该采用输入的URL和文件名（以及由于要保存的多个文档而产生的额外值），并将这些值写入excel文档。例如

| Facebook.com | Facebook | 3
| Youtube.com  | Youtube  |
| Google.com   | Google   |

第一个是URL，第二个是文件名，第三个是文档数（基本上）。

目前发生的是前2个单元格包含不断更新的数字，第3个单元格包含“ [object]”

首先是带有VBS的HTA

sub Export

    Dim URL_1           ' URL being saved to Excel
    Dim FileName_1      ' Name for file being saved
    Dim FullPath        ' Path of file
    Dim oExcel          ' Excel
    Dim oBook           ' Workbooks
    Dim oSheet          ' Worksheets
    Dim iv              ' Interval value  
    Dim ic              ' Interval cap 
    Dim Target          ' Target  FilePath

    'sets Interval cap
    ic = IC_

    ' Declares FSO
    set FSO = CreateObject("Scripting.FileSystemObject")

    ' Declares full file path
    FullPath = FSO.GetAbsolutePathName(folderName)                  

    'Sets target
    Target = FullPath & "\list.xls"

    ' Launch Excel
    Set oExcel = CreateObject("Excel.Application")

    ' Toggles visibility
    oExcel.Application.Visible = True

    ' Open a workbook
    Set oBook = oExcel.Workbooks.Open(Cstr(target))

    iv = 0
    ic = IC_

    While iv <= ic 

         URL =Cstr (URL_1 & iv) 
         FileName = Cstr(FileName_1 & iv)

        'Writes values to excel
        oExcel.Cells(1,3).value=IC_
        oExcel.Cells(1,1).value=URL
        oExcel.Cells(1,2).value=FileName
        iv = iv + 1

    Wend        

    ' Save the workbook,
    oBook.Save

    ' Quit Excel
    oExcel.Quit

End sub

</Script>

<Body>

<input type="Button" value="Add to Que" name="Export_Run"    onclick="Export">
<input type="Button" value="Extract"    name="Extractor_Run" onclick="Extract">         

    URL         <input type="Text" value="" name=URL_1> <br>
    File Name   <input type="Text" value="" name=FileName_1> <br>
    No. Pages   <input type="Text" value="" name=IC_> <br>

</Body>

在此先感谢任何愿意帮助我解决此问题的人。到目前为止，我所做的所有工作都是从获取现有代码和重新整理内容。自从我使用VB以来已经很长时间了，从来没有做过此类任务。

安斯加·威彻斯（Ansgar Wiechers）

IC_是一个HTMLInputElement对象。要从输入字段获取文本，应使用IC_.Value，如果要将其与另一个整数进行比较，则需要将其转换为整数。另外，您应该只分配一次值，并在脚本的其余部分中使用转换后的值。

...
'sets Interval cap
ic = CLng(IC_.Value)

set FSO = CreateObject("Scripting.FileSystemObject")
FullPath = FSO.GetAbsolutePathName(folderName)
Target = FullPath & "\list.xls"

Set oExcel = CreateObject("Excel.Application")
oExcel.Application.Visible = True

Set oBook = oExcel.Workbooks.Open(Cstr(target))

iv = 0

    
    
     
     ic = IC_
    
    

While iv <= ic 
    URL = Cstr (URL_1 & iv) 
    FileName = Cstr(FileName_1 & iv)

    oExcel.Cells(1,3).value = ic
    oExcel.Cells(1,1).value = URL
    oExcel.Cells(1,2).value = FileName
    iv = iv + 1
Wend
...

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。