怎么样把数据导入到excel模板中

最新推荐文章于 2022-06-02 18:37:45 发布

eastkiki

最新推荐文章于 2022-06-02 18:37:45 发布

阅读量1.6k

点赞数

分类专栏： VB 文章标签： excel integer

本文链接：https://blog.csdn.net/HDZQ2005/article/details/2563973

版权

VB 专栏收录该内容

4 篇文章 0 订阅

订阅专栏

<pre name="code" class="vb">        xlsapp.Visible = False
        xlsapp.DisplayAlerts = False
        xlsWbookMod = xlsapp.Workbooks.Open(vstrModuleExcelPath)
        xlsWsheetMod = xlsWbookMod.Worksheets(sheetname)
        'テンプレートをコピーする
        xlsWbookMod.Worksheets.Copy()
        xlsWbook = xlsapp.Workbooks(2)
        xlsWsheet = xlsWbook.Worksheets(sheetname)
        'ページを作る
        Dim iPages As Integer = Fix(表の行数 / 記録条数)
        If 表の行数 Mod 記録条数 <> 0 Then
            iPages += 1
        End If
        For i = 2 To iPages
            xlsWsheetMod.Activate()
            xlsWsheetMod.Rows(行の選択の範囲).Select()
            xlsapp.Selection.copy()
            xlsWsheet.Activate()
            xlsWsheet.Rows(intExcelIndex.ToString & ":" & intExcelIndex.ToString).Select()
            xlsWsheet.Paste()
            intExcelIndex += 記録条数
        Next
        If iPages = 0 Then
            xlsWsheetMod.Rows(行の選択の範囲).Select()
            xlsapp.Selection.copy()
            xlsWsheet.Rows(intExcelIndex.ToString & ":" & intExcelIndex.ToString).Select()
            xlsWsheet.Paste()
        End If
        xlsapp.CutCopyMode = False
        iPages = Nothing