我正在尝试制作一个简单的表单来上传文件，但它没有做任何事情并向我发送Columns("C:F").Select
Selection.ClearContents
Range("C2").Select
ActiveCell.FormulaR1C1 = "DES"
Range("C2").Select
Selection.AutoFill Destination:=Range("C2:C100")
Range("C2:C100").Select
Range("D2").Select
ActiveCell.FormulaR1C1 = "=LEFT(RC[-3], FIND("" |"", RC[-3]))"
Range("D2").Select
Selection.AutoFill Destination:=Range("D2:D100")
Range("D2:D100").Select
Range("E2").Select
ActiveCell.FormulaR1C1 = "STK"
Range("E2").Select
Selection.AutoFill Destination:=Range("E2:E100")
Range("E2:E100").Select
Range("F2").Select
ActiveCell.FormulaR1C1 = "SMART/AMEX"
Range("F2").Select
Selection.AutoFill Destination:=Range("F2:F100")
Range("F2:F100").Select
Range("G2").Select
ActiveCell.FormulaR1C1 = "=LEFT(RC[-5], FIND("" %"", RC[-5]))"
Range("G2").Select
Selection.AutoFill Destination:=Range("G2:G100")
Range("G2:G100").Select
Columns("G:G").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("C:C").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Set rng = Intersect(Range("B2:B100"), ActiveSheet.UsedRange)
For Each cell In rng
If (cell.Value) = "0 %" _
Then
If del Is Nothing Then
Set del = cell
Else: Set del = Union(del, cell)
End If
End If
Next cell
On Error Resume Next
del.EntireRow.Delete
Set rng = Intersect(Range("A2:A100"), ActiveSheet.UsedRange)
For Each cell In rng
If (cell.Value) = "CASH | CASH" _
Then
If del Is Nothing Then
Set del = cell
Else: Set del = Union(del, cell)
End If
End If
Next cell
On Error Resume Next
del.EntireRow.Delete
错误。有什么帮助吗？
Uncaught ReferenceError: files is not defined at javascript.js:1脚本：
<form method="post" enctype="multipart/form-data">
<input type="file" name="file">
<input type="submit" value="upload">
</form>