Excel VBA質問箱 IV

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

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


24848 / 76732 ←次へ | 前へ→

【57231】Re:CSVデータをACCESSに移行2.
発言  かみちゃん E-MAIL  - 08/8/2(土) 9:56 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>宣言はLong型ですれば安全なのですね。

安全というか、その変数に格納される最大値が何かをよく考えて、使う必要があります。
ただ、neputuneさんもおっしゃっていますが、
> 後、VBでInteger型を使うメリットはありません。最近のパソコンは
> 32bitか64bitですから最低でもそのメモリは消費しますから。ですから、
> VBではintegerよりlongの方が無駄な変換がないだけ効率的
というのは、私もそう思います。

>ところで、現象としては、
>For j = kiten2.Row + 1 To objsheet.Rows.Count
>だとデータの最終行ではなく、シートの最終行(65536行目)を検知しているようです。

検知ではなく、objsheet.Rows.Count は、Excelシートの最大行を取得します。
Excel2003までは、常に65536です。
objsheet.Rows.Count

Range("A65536").End(xlUp).Row
は、まったく違います。

>>Range("A65536").End(xlUp).Row
>>は、A列の値が入っている最終行
>ということは、A列だけしか見ないので、まずいですよね。
>
>For j = kiten2.Row + 1 To objsheet.Cells(Rows.Count, 1).End(xlUp).Row
>ネットで調べて上記のようにやってみたら、422行目(最終行)を検知しました。

objsheet.Cells(Rows.Count, 1).End(xlUp).Row
は、objsheetのRows.Count行目の1列目(つまりA65536セル)から上方向に、値が
入っているセルの行を返します。
つまり、Excel2003までの場合は、
objsheet.Range("A65536").End(xlUp).Row
と同じです。

0 hits

【57168】CSVデータをACCESSに移行2. satsuki 08/7/30(水) 16:13 質問
【57183】Re:CSVデータをACCESSに移行2. neptune 08/7/30(水) 22:31 発言
【57188】Re:CSVデータをACCESSに移行2. satsuki 08/7/31(木) 0:47 質問
【57189】Re:CSVデータをACCESSに移行2. かみちゃん 08/7/31(木) 0:56 発言
【57194】Re:CSVデータをACCESSに移行2. satsuki 08/7/31(木) 11:23 質問
【57196】Re:CSVデータをACCESSに移行2. かみちゃん 08/7/31(木) 12:47 発言
【57201】Re:CSVデータをACCESSに移行2. satsuki 08/7/31(木) 14:26 質問
【57207】Re:CSVデータをACCESSに移行2. neptune 08/7/31(木) 21:52 回答
【57208】Re:CSVデータをACCESSに移行2. satsuki 08/8/1(金) 1:08 発言
【57192】Re:CSVデータをACCESSに移行2. neptune 08/7/31(木) 10:25 発言
【57193】Re:CSVデータをACCESSに移行2. satsuki 08/7/31(木) 11:13 発言
【57198】Re:CSVデータをACCESSに移行2. neptune 08/7/31(木) 13:33 発言
【57209】Re:CSVデータをACCESSに移行2. satsuki 08/8/1(金) 1:14 発言
【57210】Re:CSVデータをACCESSに移行2. かみちゃん 08/8/1(金) 7:14 発言
【57222】Re:CSVデータをACCESSに移行2. satsuki 08/8/1(金) 19:37 質問
【57220】Re:CSVデータをACCESSに移行2. neptune 08/8/1(金) 16:18 発言
【57221】Re:CSVデータをACCESSに移行2. satsuki 08/8/1(金) 19:31 質問
【57225】Re:CSVデータをACCESSに移行2. かみちゃん 08/8/1(金) 21:28 発言
【57230】Re:CSVデータをACCESSに移行2. satsuki 08/8/2(土) 1:14 お礼
【57231】Re:CSVデータをACCESSに移行2. かみちゃん 08/8/2(土) 9:56 発言
【57232】Re:CSVデータをACCESSに移行2. neptune 08/8/2(土) 11:08 発言
【57227】Re:CSVデータをACCESSに移行2. neptune 08/8/1(金) 22:20 発言
【57244】Re:CSVデータをACCESSに移行2. satsuki 08/8/2(土) 18:12 お礼

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