VBでEXCELのシートのコピーに関して
同一Book内で、シートのコピーをしようと考えて、幾つかのHPを参考に、以下のような
記述をしました。
その際に、以下の記述をした場合、本来はコピー先のシート名を変更したいにも関わらず、コピー
元のシート名が変わってしまいます。
追加したシートの名前を変更させるには、どのような書き方にすれば良いでしょうか?
自分で記述しておきながら、どのように対応したら良いかわからず。。。
また、以下のような記述をした場合、追加したセル側のシートを操作したいにも関わらず、
コピー元のシートを書き換えてしまいます。
追加したシートのセルを操作したい(値を入力)ような場合は、どのような記述を
すれば良いでしょうか。。。
ご教授頂ければと思います。
'既存のEXCELファイルを開く
Dim xlFilePath As String = "C:\test.xls"
'起動時の処理
Dim xlApp As New Excel.Application
Dim xlBooks As Excel.Workbooks = xlApp.Workbooks
Dim xlBook As Excel.Workbook = xlBooks.Open(xlFilePath)
'確認のためExcelのウィンドウを表示する
xlApp.Visible = True
Dim xlSheets As Excel.Sheets = xlBook.Worksheets
Dim xlSheet As Excel.Worksheet = CType(xlSheets.Item(1), Excel.Worksheet)
Dim xlSheet2 As Excel.Worksheet = xlBook.Worksheets(1)
'シートのコピー
xlSheet.Copy(After:=xlSheet2)
'シートに名前を付ける
xlSheet.Name = "TEST"
Dim xlRange As Excel.Range
'データの入力セル範囲
xlRange = xlSheet.Range("A1:A1")
'セルへデータの入力
xlRange.Value = “AABBCC”
お礼
ありがとうございます。PCの環境も多分あるのでしょう