0

「AirHours」という名前のワークブックと別のワークブックの日付を作成しました。このワークブックをプロジェクト全体で使用したいと考えています。以下のコードは機能しますが、実行時エラー 9「下付き文字が範囲外です」が発生し続けます。

レポート用のワークブックを作成し、データを元の形式のままにしようとしています。新しいワークブックは、多くのモジュールで使用されます。で実行時エラーが発生しているようSET WSD3=Workbookです。

たぶん、公開ワークブックを作成する際に間違った方向に進んでいる可能性があります。ご協力いただきありがとうございます。

Option Explicit

Public WSD3 As Workbook

Public Sub addNewWorkBook()

Dim NewName As String

Application.DisplayAlerts = False

NewName = "AirHours" & Workbooks("AirTimeWorkBookBeta").Worksheets("Data").Cells(2, 1).Value

Workbooks.Add

ActiveWorkbook.SaveAs NewName
Set WSD3 = Workbooks("NewName")


End Sub
4

2 に答える 2

1

新しいブックを開くときに、WSD3 を新しいブックに設定します。

Option Explicit

Public WSD3 As Workbook

Public Sub addNewWorkBook()

Dim NewName As String

Application.DisplayAlerts = False

NewName = "AirHours" & Workbooks("AirTimeWorkBookBeta").Worksheets("Data").Cells(2, 1).Value

Set WSD3 = Workbooks.Add

WSD3.SaveAs NewName


End Sub
于 2013-08-13T15:11:11.150 に答える