帮忙看一下脚本

yh5721

我想把EXCEL内容固定每小时导出到另一个文件夹变成CSV格式，如果直接改后缀的话，CSV文件用文本打开会是乱码，但是我用脚本写的显示为未找到命名参数，麻烦各位帮忙看下需要怎么改

yh5721

这是代码及文件

yh5721

来个大神帮忙看看啊

一把小刀闯天下

'可以变通一下

Option Explicit

Sub AutoBackup()
  Dim filename, i, j, t, arr
  filename = "C:\Documents and Settings\Administrator\My Documents\Data" & Format(Now, "yyyymmddhhmm") & ".csv"
  arr = Sheets("sheet1").[a1].CurrentRegion
  ReDim brr(1 To UBound(arr))
  For i = 1 To UBound(arr, 1)
    t = arr(i, 1)
    For j = 2 To UBound(arr, 2)
      t = t & "," & arr(i, j)
    Next
    brr(i) = t
  Next
  Open filename For Output As #1
  Print #1, Join(brr, vbNewLine)
  Close #1
End Sub

yh5721

一把小刀闯天下 发表于 2018-6-24 16:11
'可以变通一下

Option Explicit

我刚试了下可以，谢谢了