Excel VBA获取文件当前路径、文件另存、提取对话框输入的多个数据

一. Excel VBA获取当前路径下的文件

        Dim wData As Workbook

        Set wData = GetObject(ThisWorkbook.Path & "\calculator v0.2.xlsm")

        利用ThisWorkbook.Path获取当前文件路径，当文件路径发生变化而文件名没有更改时不需要修改程序。

二. 文件备份

        在运行程序时，为防止意外更改原数据，可在处理数据前将文件拷贝一份，代码如下：

        ThisWorkbook.SaveCopyAs (ThisWorkbook.Path & "\calculator v0.2- copy.xlsm")

三. 提取对话框输入的多个数据

        利用InputBox函数用户可输入多个数据，再利用split函数将输入的整串数据转换成数组，代码如下：

            Dim sminmaxT As String
            Dim minmaxT() As String
            Dim minT As Integer
            Dim maxT As Integer

           sminmaxT = InputBox("请输入最低温度值;最高温度值:？℃;？℃ (以分号隔开，不加空格)")
            If sminmaxT = "" Then
                Exit Sub
            Else
                minmaxT = Split(sminmaxT, ";")
            End If
            
            minT = CInt(minmaxT(0))                           '最低温；最高温
            maxT = CInt(minmaxT(1))            

        其中‘；’是预先约定好的分隔符。