专家坐堂-一道只有请教袍大大的题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  一道只有请教袍大大的题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83579)

--  作者：hbhb
--  发布时间：2016/4/12 19:01:00
--  一道只有请教袍大大的题
袍大师：好！劳驾帮忙解答一下！
用代码把excel文件的工作表名为page182--page195的内容复制粘贴到page7-page20的表的第二行第f列开始的单元格，也就
下载信息  [文件大小：   下载次数： ]
点击浏览该文件:2015元素清单.zip

是中英文对照一下？

--  作者：大红袍
--  发布时间：2016/4/12 19:33:00
--
Dim dlg As new OpenFileDialog
dlg.Filter = "Excel|*.xls;*.xlsx"
If dlg.ShowDialog = DialogResult.OK Then
    Dim App As New MSExcel.Application
    try
        Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.FileName)
        For i As Integer = 7 To 20
            Dim Ws1 As MSExcel.WorkSheet = Wb.WorkSheets("Page " & i) \'指定工作表
            Dim Ws2 As MSExcel.WorkSheet = Wb.WorkSheets("Page " & (i + 175)) \'指定工作表
            ws2.UsedRange.Copy
            ws1.Select
            ws1.Cells(2, 6).Select
            ws1.paste
            Dim Rg As MSExcel.Range = Ws1.Cells
            \'Rg.WrapText = True
            Rg.EntireColumn.AutoFit   \'自动调整列宽
        Next

        app.Visible = True
    catch ex As exception
        msgbox(ex.message)
        app.quit
    End try
End If

--  作者：hbhb
--  发布时间：2016/4/12 20:20:00
--
谢谢！