VBAで配列を引数に設定する方法について

Question

前提・実現したいこと

配列を関数またはクラスに渡したいのですが、コンパイルエラーになってしまいます。
配列を渡しているつもりなのですが、問題箇所がわからないので教えてください。

発生している問題・エラーメッセージ

コンパイルエラー：
型が一致しません：配列またはユーザ定義型を指定してください

該当のソースコード

sub getIEdata()
  Dim days(6), uriagekin(6) As String
  Dim i As Long
  Dim term,code as String
  i= 3
  days(0) = "20190101"
  days(1) = "20190102"
  uriagekin(0) = "10000"
  uriagekin(1) = "15000"

  call pasteInfo(term,code,days(),uriagekin(),i)

End Sub

Sub pasteInfo(ByVal term As String, ByVal code As String, ByRef days() As String, ByRef uriage() As String, ByVal i As Long)

  処理（省略）

End Sub

試したこと

FunctionをSubに変えてみました。
引数を()あり、()なし、(6)などに変更してみましたが、エラーは変わりませんでした。

補足情報（FW/ツールのバージョンなど）

VBA7.1 excel 2016

Answer 1

VBAで、1つの変数宣言で複数個を宣言すると、As～が無いものはvariant型になってしまいます。

Dim days(6), uriagekin(6) As String

この部分。uriagekinはAs Stringが効いていますが、daysは「形無し」になってしまい、関数の引数宣言で書かれた「As String」とマッチしないというエラーになっています。

  Dim days(6) As String
  Dim uriagekin(6) As String

これでOKです。

Comments

[backyard]

もう1つの手として、関数の引数側、days()の「As String」を取り払う、または「As Variant」と宣言するというのもエラーを消すという意味では使えますが、型を明示した方がいろいろとメリットも多いので、きちんとAs String宣言した方が良いでしょうね。

[colomiyu]

ありがとうございます！
試したところ無事に動作しました。

型指定の複数宣言のつもりでしたが、省略できるのはdimだけでそれぞれに型を付けなければならないのですね。

dim a as string, b as string ,c as long
など。

大変勉強になりました。ありがとうございます！