Microsoft Access 掲示板

エクセル操作 Rangeと変数 / 8

17 コメント
views
4 フォロー
8
nokonoko 2023/07/21 (金) 08:17:38 修正 3e2e6@54883

お二方回答ありがとうございます。
回答を見たばかりなので、内容確認できてはおりません。

中略した部分も提示してください。

Set xls = CreateObject("Excel.application")
With xls
    .screenUpdating = False
    .workbooks.Open strTemplateDir & strTemplateBook
    .workbooks(strTemplateBook).Worksheets("xxx").Copy
    .workbooks(strTemplateBook).Close
  .Range(xls.cells(21+i , 1), xls.cells(21+i+j , 1).entirerow.Insert

こんな感じです。
https://tsware.jp/tips/tips_689.htm
様のサイトを参照して作っている部分です。

通報 ...