エクセルVBAで別ファイルのデータを取得しに行ってます。
http://www.officetanaka.net/excel/vba/tips/tips2 …
の二つ目に書かれたコードを参考に作ったんですが、取得セル範囲を何も入力されてない所まで広げると何も入力されてない所は『0』と取得、表示されてしまいます。
取得した時に『0』で表示するのを避ける方法はありますか?
No.2ベストアンサー
- 回答日時:
「結果が0のとき値を返さない」だけであれば
結果が0かどうかを確かめてから値をセットすればOKですね。
Sub Sample2_2()
Dim i As Long
Dim buf As Variant
For i = 1 To 20
buf = ExecuteExcel4Macro("'C:\[Book1.xls]Sheet1'!R" & i & "C1")
If buf <> 0 Then
Cells(i, 1) = buf
End If
Next i
End Sub
ただ、Sample2_2の場合
書き出し先にあるデータが残ってしまうことがありますから
あらかじめ書き出し先をクリアした方が安全です。
Sub Sample2_3()
Dim i As Long
Dim buf As Variant
For i = 1 To 20
Cells(i, 1).ClearContents
buf = ExecuteExcel4Macro("'C:\[Book1.xls]Sheet1'!R" & i & "C1")
If buf <> 0 Then
Cells(i, 1) = buf
End If
Next i
End Sub
また、「元データに空白ではなく0が入っていた場合」
上記のコードでは本当に0であっても空白になってしまいます。
「空白なら空白,0なら0」とする場合は、下記のように取得する時点で確認する必要があります。
Sub Sample2_4()
Dim i As Long
Dim buf As Variant
For i = 1 To 20
Cells(i, 1).ClearContents
If Not ExecuteExcel4Macro("ISBLANK('C:\[Book1.xls]Sheet1'!R" & i & "C1)") Then
Cells(i, 1) = ExecuteExcel4Macro("'C:\[Book1.xls]Sheet1'!R" & i & "C1")
End If
Next i
End Sub
以上ご参考まで。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Excel(エクセル) フォルダ内のエクセルファイルを開かずにデータ採取する関数式 2 2022/12/22 22:15
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
- Visual Basic(VBA) vba 等間隔の列に対しての計算 6 2022/05/17 20:15
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
- Excel(エクセル) 単価シートから単価をエクセル関数で自動取得する方法 1 2023/07/02 22:00
- Excel(エクセル) エクセルの散布図で新たに入力した値のデータラベルが空欄になる現象 1 2022/04/26 09:31
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- その他(プログラミング・Web制作) Windowsのマクロプログラムで、こんなことできますか? 3 2022/06/28 14:30
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
コンボボックス表示文字列を取...
-
VB .netにて現在時刻+1時間後...
-
VB.NETで DataRow()を利用して...
-
C言語におけるコンピュータ名・...
-
エクセルVBA リストボック...
-
count(*)で取得した値をJAVAの...
-
like演算子内に変数って使えな...
-
指定のURLのタイトルを取得...
-
ListView 項目の選択/選択解除...
-
VBAでグラフのindexを取得したい
-
データ数をカウントしたいのですが
-
VBA Shapesの座標からセル位置...
-
VBScriptで数値にコンマを付け...
-
「Excel VBA」 Webクエリ マク...
-
時刻の比較に関して
-
C#でネットワーク(LAN)上のPC...
-
ディスプレイの表示可能な解像...
-
エクセルVBAによるIE制御(セレ...
-
ExcelVBAを使って、値...
-
VBA ユーザーフォーム ボタンク...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VB.NETで DataRow()を利用して...
-
count(*)で取得した値をJAVAの...
-
データ数をカウントしたいのですが
-
VBA:小数点以下の数字を取得で...
-
VBAでActiveDirectoryのユーザ...
-
ListView 項目の選択/選択解除...
-
Flexgridで選択行の列の値を取...
-
getParameter と getAttribut...
-
like演算子内に変数って使えな...
-
ListViewで複数選択された項目...
-
JavaScriptでWindowsログオンID...
-
時間を分に変換するプログラム
-
エクセルVBAで複数選択できるよ...
-
Spreadの選択行の取得について
-
JavaScriptにおいてコンピュー...
-
コンボボックス表示文字列を取...
-
VBA リストボックス内の値を複...
-
利用者側のMACアドレスを取得し...
-
「Excel VBA」 Webクエリ マク...
-
EXCELのリストボックスを選択し...
おすすめ情報