将csv文件导入Excel，并在Excel外部自动对其进行密码保护

debugcn 发表于 Dev

乔尔

我想使用一个csv（它将包含2或11个条目）：

“你好”，“那里”，“人”，...“第11件事”

或者

“你好呀”

多亏了https://blogs.technet.microsoft.com/heyscriptingguy/2005/02/07/how-can-i-password-protect-an-excel-spreadsheet/，我创建了受密码保护的Excel文件！

现在如何导入csv？

我尝试过但未能将这篇文章合并到我的脚本中：

VBScript将CSV导入Excel

这是我得到的：

vbFormatStandard = 1
Const vbFormatText     = 2
Const vbFormatDate     = 4

Const xlDelimited      = 1
Const xlDoubleQuote    = 1

' change according to number/type of the fields in your CSV
dataTypes = Array( Array(1, vbFormatText) _
  , Array(2, vbFormatStandard) _
  , Array(3, vbFormatText) _
  , Array(4, vbFormatDate) _
  )

Set xl = CreateObject("Excel.Application")
objExcel.DisplayAlerts = FALSE

xl.Visible = True
xl.Workbooks.OpenText "C:\Users\data.csv", , , xlDelimited, xlDoubleQuote, False _  , False, True, , , , dataTypes
Set wb = xl.ActiveWorkbook

Set objWorkbook = objExcel.Workbooks.Add
Set objWorksheet = objWorkbook.Worksheets(1)
objWorksheet.Cells(1, 1).Value = Now
objWorkbook.SaveAs "C:\Users\stuff.xls",,"pass"
objExcel.Quit

我该如何称呼我的物品？我不是在做头也不是尾巴，也不是开发人员，但要执行此任务...。

乔尔

相反，它可以工作，并且更简单：

Dim myXL
Const xlDelimited = 1
Const xlWorkbookNormal = -4143

Set myXL=CreateObject("Excel.Application")
myXL.Visible=False
myXL.DisplayAlerts=False
myXL.WorkBooks.OpenText "C:\data.xt", , , xlDelimited, , , , , True 
myXL.ActiveWorkbook.SaveAs "C:\data.xls", xlWorkbookNormal,"password"

myXL.ActiveWorkbook.Close False
myXL.Quit

Set myXL = Nothing

有关详细信息，请参见https://msdn.microsoft.com/en-us/library/office/ff841185.aspx

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

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