| |
▼ichinose さん：
おはようございます。
返信ありがとうございます。
>このエラーが再現できませんでした。
>ひょっとしてIEからExcelのXlsファイルを読み込む
>なんてことしていませんか？
IEからExcelのXlsファイルを読み込むことはしておりません。
>このエラーが発生したときにExcel上に開かれている
>ブックはいくつありますか？
>提示されたVBAコードを含むブックだけですか？
>（気になるのは、「設定」と付けられたシートがどこにあるかですが・・・）
ブックは「請求メニュー.xls」ひとつです。「設定」シートもその中にあります。
が
画面左のvba projectは下記のようなイメージになっています。
Lib2というのは共通モジュールのようです。
LIB2 (Lib2.xla)
Microsoft Excel Objects
標準モジュール
Module1
VBAProject(請求メニュー.xls)
Microsoft Excel Objects
Sheet1(1)
Sheet2(設定）
ThisWorkbook
参照設定
参照先 Lib2.xla
------------------------------
以下は請求メニューのソースです。
Private Sub Workbook_Open()
sv_path = Application.DefaultFilePath
sv_drv = Left(sv_path, 1)
sv_prn = Application.ActivePrinter
With Application
.ScreenUpdating = False
.Caption = "請求書作成"
End With
Sheet1.set1 Worksheets("設定").Range("A1").Value ＝＞ここで1004です。
CB_clear
book_open "汎用名称.xls"
add_button
End Sub
Private Sub Workbook_Activate()
Sheet1.OptionButton1.Value = Not (nflg)
Sheet1.OptionButton2.Value = nflg
With Application
.WindowState = xlNormal
.Height = 323
.Width = 350
End With
Application.ActivePrinter = sv_prn
End Sub
Private Sub Workbook_Deactivate()
nflg = Sheet1.OptionButton2.Value
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
CB_set
book_close "汎用名称.xls"
With Application
.DisplayAlerts = False
.WindowState = xlMaximized
End With
End Sub
>
>それとWindowsとExcelのバージョンも記述してください。
>今のところ、よくわからないので解決するか否かは
>わかりませんが、バージョン情報も含めて
>なるべく多くの情報を提示してみてください。
Windowsはサーバ／クライアントとも2000です。
Excelも2000です。
サーバ側のフォルダにブックを入れてあります。
お忙しいところ申し訳ございません。
よろしくお願いいたします。
|
|
VBA初心者
- 05/8/25(木) 11:03 -
