Excel VBA質問箱 IV

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

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


19770 / 76732 ←次へ | 前へ→

【62388】Re:ファイル一覧を作りましたが
回答  Hirofumi  - 09/7/16(木) 10:39 -

引用なし
パスワード
   >ただ、一覧の最後に#N/Aが付いているのは何か理由があるのでしょうか?

ゴメン、ファイル名の配列サイズを勘違いしました

      .Resize(UBound(vntFiles, 1) + 1).DataSeries _
          Rowcol:=xlColumns, Type:=xlLinear, _
          Date:=xlDay, Step:=1, Trend:=False
      .Offset(, 1).Resize(UBound(vntFiles, 1) + 1, 4).Value = vntFiles



      .Resize(UBound(vntFiles, 1)).DataSeries _
          Rowcol:=xlColumns, Type:=xlLinear, _
          Date:=xlDay, Step:=1, Trend:=False
      .Offset(, 1).Resize(UBound(vntFiles, 1), 4).Value = vntFiles

です、「UBound(vntFiles, 1) + 1」の所を「UBound(vntFiles, 1)」として下さい
1行余計に成っていました

124 hits

【62373】ファイル一覧を作りましたが ざき 09/7/15(水) 11:51 質問
【62374】Re:ファイル一覧を作りましたが つん 09/7/15(水) 13:01 発言
【62386】Re:ファイル一覧を作りましたが ざき 09/7/16(木) 8:19 お礼
【62380】Re:ファイル一覧を作りましたが Hirofumi 09/7/15(水) 16:28 回答
【62381】Re:ファイル一覧を作りましたが Hirofumi 09/7/15(水) 16:33 回答
【62387】Re:ファイル一覧を作りましたが ざき 09/7/16(木) 8:24 お礼
【62388】Re:ファイル一覧を作りましたが Hirofumi 09/7/16(木) 10:39 回答
【62457】Re:ファイル一覧を作りましたが ざき 09/7/22(水) 20:35 お礼

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