Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Pro : Excel 2016)
Sti関数
投稿日時: 19/06/19 13:14:10
投稿者: サイタマ

PCをWindows7(32ビット)、Exce2016(32ビット) から Windows10(64ビット)、Exce2016(64ビット)のPCに変更しました、エクセルのマクロ中で Str関数 が 下記エラーを表示して停止してしまいました。
PCは上部企業支給であり再インストールは出来ません。
対応を解かる方いらっしゃいましたらご教示下さい。お願い致します。
 
 Microsoft Visual Basic for Applications
          コンパイルエラー:
     プロジェクトまたはライブラリが見つかりません。

回答
投稿日時: 19/06/19 15:13:16
投稿者: WinArrow
投稿者のウェブサイトに移動

とりあえず
エラーになっているコードを掲示できますか?

回答
投稿日時: 19/06/19 15:32:20
投稿者: Suzu

こんにちは。
 
VB関連エラー
http://mt-soft.sakura.ne.jp/web_dl/common/vb-info/
 
参照設定 にて、参照不可 となっているライブラリはありませんか?
 
 
・あるならチェックを外し、コンパイルをしなおしてみてください。
 
・参照不可が無い のであれば、
  チェックの入っている ライブラリ を メモ等で書き留め
  書き留めた後、全部外し、ファイルを保存。
  開きなおした後に、メモを参考に ライブラリのチェックを入れなおしてください。
 
  治らないのであれば
  Str関数ではなく、CStr関数を使用するように変えてみてください。
 
  ちなみに。
   先の紹介したページの Str関数のクラスは VBA.Conversion.Str となります。
   (チェックを外す、付け直すで問題が継続するなら上記もエラーとなるはずです)

回答
投稿日時: 19/06/20 07:07:36
投稿者: simple

すでに指摘頂いているところですが、こちらmougの即効テクニックも
紹介しておきましょう。
[定番のVBA関数でコンパイルエラーが出たときの対処法]
https://www.moug.net/tech/exvba/0150128.html

投稿日時: 19/06/20 08:16:31
投稿者: サイタマ

ありがとうございます。「参照不可」のチエックを外したら下記エラーは解除しました。
 Microsoft Visual Basic for Applications
           コンパイルエラー:
      プロジェクトまたはライブラリが見つかりません。
 
次は下記マクロでエラーが発生しました。
 
    Dim DataDateTimePAD As String
 
    DataDateTimePAD = Str(FileDateTime("\\Sai02_sv\サイタ山積\System\サイタエレ山積SystemStart.xls"))
 
上記マクロで下記エラーです。
  Microsoft Visual Basic
   実行時エラー'5':
      プロシージャの呼び出し、または引数が不正です。
解かる方、ご教示下さい。お願い致します。

回答
投稿日時: 19/06/20 10:56:00
投稿者: Suzu

DataDateTimePAD = Str(FileDateTime関数が返す内容)
 
FileDateTime関数が返す内容 に、直接、値を埋め込み Str関数が問題なのかの確認を行います。
 
 
問題がなければ その内側 FileDateTime に問題がないか。の確認を行います。
 
つまり
Dim varDate As Date
varDate = FileDateTime("\\Sai02_sv\サイタ山積\System\サイタエレ山積SystemStart.xls")
 
とでもして、確認します。
 
 
段階的に問題がないか確認してください。

回答
投稿日時: 19/06/24 22:08:28
投稿者: simple

こういう確認をしてみてください、と提案されているのですが、
伝わっていないのでしょうか。

Sub test()
    Dim s As String
    Dim v As Date
    Dim DataDateTimePAD As String
    
    s = "\\Sai02_sv\サイタ山積\System\サイタエレ山積SystemStart.xls"
    v = FileDateTime(s)
    Debug.Print v

    DataDateTimePAD = Str(v)
    Debug.Print DataDateTimePAD
End Sub

投稿日時: 19/06/25 07:29:02
投稿者: サイタマ

本件、解決致しました。
パスのサイバー(Sai02_sv)がIPアドレスで表示されていました。資格情報マネージャーで正しくサーバー接続し”Sai02_sv”をパスに表示させ解決いたしました。ご教示頂いた方々大変ありがとうございました。