JS选择文件夹、选择表格文件

hnsd24

方法和VBA一模一样，只是改了一下代码的写法
一、选择文件夹及调用举例

1. function SelectPath() //选择文件夹，并返回文件夹路径
   
2. {
   
3.         let fo =Application.FileDialog(msoFileDialogFolderPicker)
   
4.         fo.Title="请选择文件夹"
   
5.         fo.InitialFileName="Users/Administrator/Desktop/"
   
6.         fo.Show()
   
7.         let paths=fo.SelectedItems
   
8.         if(paths.Count==1)
   
9.         {
   
10.                 return paths(1)
    
11.         }
    
12.         else
    
13.         {
    
14.                 return ""
    
15.         }
    
16. }
    
17. function test_select()
    
18. {
    
19.         Console.log(SelectPath())
    
20. }

复制代码

二、选择表格文件及调用举例

1. function SelectFile() //选择表格文件，并返回文件的完整路径和文件名
   
2. {
   
3.         let fo=Application.FileDialog(msoFileDialogFilePicker)
   
4.         fo.Title="请选择表格文件"
   
5.         fo.InitialFileName="Users/Administrator/Desktop/"
   
6.         fo.AllowMultiSelect=false
   
7.         fo.Filters.Clear()
   
8.         fo.Filters.Add("Excel Files","*.xls;*.xlsx;*.xlsm;*.csv;*.et")
   
9.         //fo.Filters.Add("All Files", "*.*")
   
10.         if(fo.Show()==0) //用户选择取消
    
11.         {
    
12.                 return ""
    
13.         }
    
14.         else
    
15.         {
    
16.                 return fo.SelectedItems(1)
    
17.         }
    
18. }
    
19. function test_selectfile()
    
20. {
    
21.         Console.log(SelectFile())
    
22. }

复制代码

另外，我用JS做的日历挂件（窗体）基本上也完成了，但由于JSA目前目前缺少窗体的卸载或关闭方法，暂时无法使用

dongdonggood

用JSA 实现一键备份指定文件，该怎么实现，我现在用vba编了一段，但是不知道用js该怎么处理。
Private Sub CommandButton5_Click() '备份单个文件
  
   Dim 待备份路径, 模待备份文件名, 导出路径, 导出文件名

   
   Range("l3:m3").ClearContents
   
   Range("l1").Select
   Selection.FormulaR1C1 = Format(Now(), "yyyymmddhmm")
   Range("k3").Select
   Selection.TextToColumns Destination:=Range("L3"), DataType:=xlDelimited, TextQualifier:=xlTextQualifierDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar:=".", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
    Range("K5").Select
   待备份路径 = Range("K2")
  
   待备份文件名 = Range("K3")
   导出路径 = Range("K4")
   On Error Resume Next
    VBA.MkDir 导出路径
  
   导出文件名 = Range("l3") & "备份" & Range("l1") & "." & Range("m3")
   Range("k5") = 导出文件名
   Range("l1").ClearContents
   
  
    FileCopy 待备份路径 & 待备份文件名, 导出路径 & 导出文件名
   
   If Dir(导出路径 & 导出文件名) = "" Then
      MsgBox "文件不存在，关闭工作簿后再试。", 0 + 48 + 256 + 0, "信息"
   ElseIf Dir(导出路径 & 导出文件名) <> "" Then
     
      MsgBox "备份已完成。", 0 + 48 + 256 + 0, "信息"
   End If

End Sub