Excel2016 VBA

質問

Windows10 ,Excel2016 バージョン1809 , VBA7.1を使用しています。
下記のコード(ホームページに掲載されているコードを写して実行しようとした。)で、
Attributeの箇所に、　コンパイルエラーと構文エラーが出ます。
Module1をaaaにしたり、Attributesと書き換えたりしてもエラーが消えません。
どなたか正常にコンパイルする書き方を教えてください。
お願いします。

Attribute VB_Name = "Module1"
'************************************
'ラベル発行のサンプル
'************************************
Option Explicit
' 各項目の配置定義用ユーザー定義
Private Type typLocation
X As Long
Y As Long
COL As Long
End Type
Private Const cnsSH1 = "DATA"
Private Const cnsSH2 = "LABEL"
Private Const cnsSH1 = "設定"
Private Const cnsOMIT = "除外"
'*******************************************************************************
' ラベル発行
'*******************************************************************************
Sub PrintLabels()
Dim xlApp As Application
Dim WBK As Workbook '本ブック
Dim SH1 As Worksheet 'DATA
Dim SH2 As Worksheet 'LABEL
Dim SH3 As Worksheet '設定
Dim tblLoc(1 To 10) As typLocation '項目配置定義(ユーザー定義を配列化)

End Sub

回答No.2

m3_maki · ベストアンサー

Excel のモジュールにコピペするなら

> Attribute VB_Name = "Module1"

この行は不要です。
削除するなり、コメントアウトするなりしいぇください。

コピペせずに保存して インポートするなら
そのまま メモ帳に貼り付け
「Module1.bas」という名前で保存します。

2016 で確認できませんので、違っていたら御免なさい、ですが、

VBE の画面から 「ファイル」 －「ファイルのインポート」で
「Module1.bas」を選択し、開くで
Module1 が インポートされます。

インポートされたソースには
Attribute VB_Name = "Module1"
の記述は見えません。

お礼

インポートの方法を教えてくださりありがとうございます。

回答No.1

notnot

VBAにAttribute という文は無いと思いますが、
Attribute VB_Name = "Module1"
の意図は何ですか？

お礼

お返事ありがとうございます。
仕事に「Microsoft Excel」を活用しようという方を応援するサイトで、VBAの便利さを紹介する記事で紹介されていた、コードを写そうとしたので意図はわかりません。インターネットで調べたりしてもわかりませんでした。