- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]excel复制数据到FT (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=179871)
-- 发布时间：2022/9/15 0:38:00
-- [求助]excel复制数据到FT
请教老师，下面的代码应该怎么写：
单击按钮的代码：
Dim F As New OpenFileDialog \'定义一个新的OpenFileDialog
F.Filter = "Excel文件|*.xls;*.xlsx" \'设置筛选器
If F.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim ExApp As New MSExcel.Application \'打开excel程序
ExApp.DisplayAlerts = False \'关闭警告
Dim Wb As MSExcel.Workbook = ExApp.WorkBooks.Open(F.FileName) \'打开选定的工作薄
Dim Exsheet1 As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range
Rg = Exsheet1.Range("A5:A10")
Rg.Copy()
\'我想将复制的数据，在FT中表A的第二列的第3行的位置开始粘贴，请教代码怎么写？
ExApp.DisplayAlerts = True \'恢复警告
ExApp.quit
End If
-- 发布时间：2022/9/15 9:03:00
--
Tables("表A").Select(2,1)
Tables("表A").EditPaste
-- 发布时间：2022/9/15 10:40:00
--
谢谢蓝老师
-- 发布时间：2022/9/15 15:28:00
--
我在代码中加入了关闭警告，执行结束后怎么还是弹出了这个对话框，要怎么解决？
此主题相关图片如下：下载.png
-- 发布时间：2022/9/15 15:54:00
--
写了什么代码？
-- 发布时间：2022/9/15 16:12:00
--
就上面那一段代码，只把粘贴加上去了，其它没别的
-- 发布时间：2022/9/15 16:20:00
--
ExApp.DisplayAlerts = True \'恢复警告
改为
ExApp.DisplayAlerts = false