Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


13525 / 13644 ツリー ←次へ | 前へ→

【4958】モジュールの移行について ポリンキー 03/4/15(火) 14:59 質問
【4989】Re:モジュールの移行について BOTTA 03/4/16(水) 16:04 回答
【5013】Re:モジュールの移行について ポリンキー 03/4/17(木) 13:15 お礼

【4958】モジュールの移行について
質問  ポリンキー  - 03/4/15(火) 14:59 -

引用なし
パスワード
    初心者でよくわからないながらも、こちらで皆さんにいろいろと教えていただいたおかげで、マクロがうまく動くようになりました。ありがとうございました。そのマクロを上司のパソコンで動くようにするために、モジュールを共有フォルダに入れました。上司は共有フォルダからモジュールをインポートして実行したところ、私のパソコンでうまくいったマクロが上司のパソコンではエラーメッセージが出ます。ちなみに私はExel2000で、上司はExel2002です。

 エラーメッセージが出た行は、下の★印の行です。
Dim FName As String
  FName = Application.GetOpenFilename( _
    FileFilter:="すべてのファイル(*.*),*.*")

  Workbooks.OpenText Filename:=FName, StartRow:=1, _
    DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
    ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=True, _
    Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array( _
    3, 1), Array(4, 1))
    
  Dim MyRange As Range
  Dim Hed As Range
  Dim i As Long, j As Integer
  Application.ScreenUpdating = False
  Call Range("A:A").Insert(xlShiftToRight)
  Set MyRange = Range("A1")

Set Hed = Range("B:B").Find("~*COUNT", , xlValue, xlWhole)←★★★ここ
    For i = Hed.Row + 1 To Range("B65536").End(xlUp).Row - 3
      For j = 2 To Cells(i, 256).End(xlToLeft).Column
        MyRange.Value = Cells(i, j).Value
        Set MyRange = MyRange.Offset(1, 0)
      Next
    Next
以下続く・・・


 「インデックスが有効範囲にありません」というメッセージです。

大変初歩的な質問なのですが、モジュールを移行する時、単純にモジュールをコピーするだけではいけないのでしょうか?

 

【4989】Re:モジュールの移行について
回答  BOTTA  - 03/4/16(水) 16:04 -

引用なし
パスワード
   ポリンキーさん、こんにちは。
問題の箇所、
Set Hed = Range("B:B").Find("~*COUNT", , xlValue, xlWhole)
を      ↓
Set Hed = Range("B:B").Find("~*COUNT", , xlValues, xlWhole)
にしてみて下さい。
引数の定数名は正確に。

【5013】Re:モジュールの移行について
お礼  ポリンキー  - 03/4/17(木) 13:15 -

引用なし
パスワード
   BOTTAさん、大変失礼いたしました。
私のパソコンでは、sを抜かしてもうまく動いたので、ケアレスミスに気付きませんでした。こんなどうしようもない質問にも丁寧にお答えいただき、恐縮しています。
どうもありがとうございました。

13525 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free