以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  操作EXCEL表  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=174105)

--  作者：zhuxinhui --  发布时间：2021/12/31 17:17:00 --  操作EXCEL表 想把EXCEL里的--替代成数值为0，哪里出错了呢？？？？ Dim App As New MSExcel.Application                                        \'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'定义Excel对象 App.DisplayAlerts=True                                                    \'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'是否显示警告信息对话框 Dim dlg As New OpenFileDialog                                              \'\'\'\'\'\'\'\'\'\'\'\'\' \'定义一个新的OpenFileDialog dlg.InitialDirectory="D:\\My Documents"                                     \'\'\'\'\'\'\'\'\'\'\'\'\'\'\'最初显示的目录 dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb"              \'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'设置筛选器 If dlg.ShowDialog = DialogResult.OK Then                                   \'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'如果用户单击了确定按钮    Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(dlg.filename)    App.Visible = True    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(0)    Ws.Activate    Dim Rg As MSExcel.Range = Ws.UsedRange    Rg.Select    Rg.Replace("--", 0) End If App.Quit

--  作者：有点蓝 --  发布时间：2021/12/31 17:26:00 --   去掉Ws.Activate、Rg.Select试试

--  作者：zhuxinhui --  发布时间：2021/12/31 17:31:00 --   还是一样，不行 此主题相关图片如下：qq截图20211231173225.png

--  作者：有点蓝 --  发布时间：2021/12/31 17:38:00 --   Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) vba的索引都是从1开始的

--  作者：zhuxinhui --  发布时间：2022/1/2 10:09:00 --   可以了，系,用了孤表，现在很少用VBA和EXCEL了，感觉都有点陌生了