こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

投稿日時 - 2018-10-23 20:39:39

QNo.9550619

困ってます

質問者が選んだベストアンサー

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

> Attribute VB_Name = "Module1"

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

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

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

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

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

投稿日時 - 2018-10-24 00:26:19

お礼

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

投稿日時 - 2018-10-27 20:36:30

ANo.2

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.1

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

投稿日時 - 2018-10-23 22:47:06

お礼

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

投稿日時 - 2018-10-24 19:49:12

あなたにオススメの質問