VBA合并工作表中保存文件和如何改成路径选择

Dim x As Integer
Dim y As Integer

Dim Rng As String
Dim st As Range
x = InputBox("Start from which tab?")

y = InputBox("End at which tab?")
Rng = InputBox("Input the Range: (e.p: A1:D12)", "select the range", "A1:A1") '把选择范围的时候变成可以返回到范围最大的工作表当中选择范围，而不是手动输入
Set st = Range(Rng)

For m = x To y

n = Sheets(m).[a65536].End(xlUp).Row

o = Sheets(1).[a65536].End(xlUp).Row

Sheets(m).Select

Range(Rng).Select
Range("a" & n).Activate

Selection.Copy
Sheets(1).Select
Range("a" & o + 1).Select

ActiveSheet.Paste

Next

sFilePath = InputBox("Where to save?") '改成像平时保存文件一样选择保存路径
If sFilePath & "" = "" Then End
End Sub

相关了解……