vb.net VSTO excel VBA转化VB.NET，求助大佬解惑

aosmmas

Sub ddd()
Application.DisplayAlerts = False
Dim fileName As String
Range("w2") = Range("f2")    '指定单元格里面有保存路径，例如F2里面写着D:\ABS.DPS
Range("w2").Replace What:=".DPS", Replacement:="", LookAt:=xlPart  '.DPS是后缀，查找进行删掉。
fileName = Range("w2")   '这里就变成了D:\ABS
ActiveWorkbook.SaveAs fileName:= fileName + ".xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = ture       '这里就是指定另存为名字路径为D:\ABS.XLS。
End Sub
   大佬好，这个就是VBA的写法， 本人实在不懂VB.NET VSTO EXCEL外接程序 怎么编写，望大佬们赐教。谢谢

梧叶沙沙

1.     Sub ddd()
   
2.         xlapp.DisplayAlerts = False
   
3.         Dim fileName As String
   
4.         xlapp.Range("w2").Value = xlapp.Range("f2").Value    '指定单元格里面有保存路径，例如F2里面写着D:\ABS.DPS
   
5.         xlapp.Range("w2").Replace(What:=".DPS", Replacement:="", LookAt:=2)  '.DPS是后缀，查找进行删掉。
   
6.         fileName = xlapp.Range("w2").Value   '这里就变成了D:\ABS
   
7.         xlapp.ActiveWorkbook.SaveAs(Filename:=fileName + ".xls", FileFormat:=-4183, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False)
   
8.         xlapp.DisplayAlerts = True       '这里就是指定另存为名字路径为D:\ABS.XLS。
   
9.     End Sub

复制代码

梧叶沙沙

1.     Sub ddd()
   
2.         xlapp.DisplayAlerts = False
   
3.         Dim fileName As String
   
4.         xlapp.Range("w2").Value = xlapp.Range("f2").Value    '指定单元格里面有保存路径，例如F2里面写着D:\ABS.DPS
   
5.         xlapp.Range("w2").Replace(What:=".DPS", Replacement:="", LookAt:=2)  '.DPS是后缀，查找进行删掉。
   
6.         fileName = xlapp.Range("w2").Value   '这里就变成了D:\ABS
   
7.         xlapp.ActiveWorkbook.SaveAs(Filename:=fileName + ".xls", FileFormat:=-4183, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False)
   
8.         xlapp.DisplayAlerts = True       '这里就是指定另存为名字路径为D:\ABS.XLS。
   
9.     End Sub

复制代码

梧叶沙沙

简答来说，就是所有对象前面指定一个excel程序对象，所有参数都写在括号里，并且参数用数字常量表示。Range的Value属性要加上。

aosmmas

梧叶沙沙 发表于 2020-10-30 23:48

大哥你好，第5行 查找删掉那行，成全局查找删掉了，第7号好像 没反应，无法进行保存是不是我对象错了
Dim xlapp As Excel.Application
        xlapp = Globals.ThisAddIn.Application
我加了这个引用