单击按钮的代码：
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
加好友 
发短信
Post By：2022/9/15 0:38:00 [只看该作者]
