Question

我要在一个文件夹里面把所有Excel表A1单元格里面的公式转换为数值,使用vba一键完成

Answer 1

Sub xx()
    Dim pth, fn, i, n
    pth = ThisWorkbook.path & "\"
    fn = Dir(pth & "*.xls")
    Do While fn <> ""
      If fn <> ThisWorkbook.name Then
        Application.Workbooks.Open pth & fn
        n = Workbooks(fn).Sheets.Count
        For i = 1 To n
          Workbooks(fn).Sheets(i).[a1] = Workbooks(fn).Sheets(i).[a1].Text
        Next
        Application.Workbooks(fn).Close True
      End If
      fn = Dir
    Loop
End Sub

新建一个工作簿，保存到要转换的文件夹，打开VBE，复制上面的代码，运行

追问

你好，这个加一句保存

这个里面运行之后是不是打开关闭表出现保存对话框

Answer 2

每个excel表里面只有一个表格？

追问

不，可以几个，到要指定是sheet1还是2还是3

追答

Q147838534,已发你私信