2016-09-13 16 views
-1

私はここで、フォルダを選択するとたくさんのファイルを通過し、新しいシートにものを収集する必要があるこのかわいいコードを持っています。この部分では、静的で各行に追加する必要があるため、ヘッダーデータを配列に格納したいと考えています。ヘッダー情報は、B2のようなセル値を含むcellPosition配列から得られます。 forサイクルの中で私はsave_fix_gen(i)= 2番目の要素(i = 2)でいくつかの方法をクラッシュし、なぜそれを理解することができないのですか?どんな助けも大きなプラスに感謝します!バリアントクラッシュに値を割り当てるのはなぜですか?

FYI

+2

は、あなたがすべきではないそこには何もないことを確認し、[ローカル]ウィンドウでcellPositionsの内容を確認しましたか?また、cellPositionsに基づいてsave_fix_fenの寸法を決めるのはなぜですか? –

答えて

0

これが働いて、ありがとうございました。入力の最大サイズに配列を設定するだけです。

ReDim save_fix_gen(UBound(cellPositions)) 
ActualWBK.Worksheets("Bid Leveling Template").Activate 
For i = LBound(cellPositions) To UBound(cellPositions) 
    save_fix_gen(i) = CStr(Evaluate(cellPositions(i))) 
    i = i + 1 
    'ReDim Preserve save_fix_gen(i) 
Next 
関連する問題