Excel VBA 質問スレ Part64

2019/12/02(月) 23:43:54.18

!extend:checked:vvvvv:1000:512

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

※前スレ
Excel VBA 質問スレ Part63
https://mevius.5ch.net/test/read.cgi/tech/1568630099/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

2020/01/11(土) 06:26:51.15

TSが時代遅れはともかくVBAはさすがにもう仕事の効率とかそういう次元の話じゃない
クレジットカードの有効期限が迫ってるようなもんだ

2020/01/11(土) 12:18:46.28

Option Explicit
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub TableControl()
Dim ie As InternetExplorer
Dim targetURL As String: targetURL = "http://www.ikachi.org/sample/sample10.html";
Set ie = GetIEObject(targetURL)

If (ie.LocationURL = "") Then
MsgBox "Plz Open the Web page"
Exit Sub
End If
End Sub

Public Function GetIEObject(ByVal targetURL As String) As InternetExplorer
Set GetIEObject = Nothing

Dim sh As Object
Set sh = CreateObject("Shell.Application")

Dim w As Object
For Each w In sh.Windows
If (TypeOf w Is InternetExplorer) And (w.LocationURL = targetURL) Then
Set GetIEObject = w
Exit For
End If
Next
End Function
でie.LocationURL = ""でエラーが出るのですが、booleanだがらでしょうか？

2020/01/11(土) 12:56:17.13

>>289
参照設定してないんちゃう

2020/01/11(土) 12:58:17.36

何にも分かってないバカが多い。
汎用言語は正に競合だらけだからこそ、VBAの優位性が理解出来ない。

VBAの対象となってるのは他言語じゃゴミしか出来ない。
今後、TSで同じようなことが出来るならTSに移って行くだけのこと。

2020/01/11(土) 13:10:09.62

>>289
> ie.LocationURL = ""でエラーが出るのですが
なぜかエラーの内容は極秘なんだよね…

2020/01/11(土) 13:31:11.90

>>289
そもそも、これVBAのコードなの?
なんか、初心者がコピペしたんじゃないの?

個人的に間違っちゃいないけど気になるのは、InternetExplorerで宣言してるのにCreateObject使ってる所。

間違ってると思うのはTypeOf。
VBAでこんな単語使ってるの初めて見た。
構文的にこの部分でエラーにならないのにびっくりした。

どちらにしろGetIEObjectでieが空っぽで帰ってる。

2020/01/11(土) 13:37:40.62

一応言っておくがTypeOf自体が間違いじゃない。
こういう単語を使ったコードもあり得る。
でも自分は見たこと無いし、今回のコードもここが間違ってる。

2020/01/11(土) 14:02:25.84

>>293-294
いや、コード的には間違ってない
>GetIEObjectでieが空っぽで帰ってる
のは間違いないけど、このコードが正しく動く前提として
IEで指定されたURLが開いてる必要があるだけ

まあ指定URLが開いていたら、下のIFがスルーされるから
示された部分だけでは何がしたいコードがよくわからんが

2020/01/11(土) 14:13:44.58

一応Win10の365で動くか試したみた結果ね

つか気になってちょっと調べてみたけど
TypeOf って日本語ドキュメントに記載ないっぽいな
VBAのバージョンとかで使えないかもしれん

なんにせよShellでIE取得して操作とかお勧めしかねるけどな

2020/01/11(土) 16:02:20.96

289です。
>> 292
すみません、エラー内容は「オブジェクト変数または With ブロック変数が設定されていません」です。

>> 293
Excel VBAでクローリング＆スクレイピング（五十嵐貴之著）のP137に書かれているコードなのですが。
余りよくないのでしょうか。

2020/01/11(土) 16:36:52.33

>>297
> すみません、エラー内容は「オブジェクト変数または With ブロック変数が設定されていません」です。
原因は>>295が書いてる通りだと思うのでとりあえずIEでサイト開いてから実行してみて

> 余りよくないのでしょうか。
残念ながらあんまり良くはない
例えば
> If (TypeOf w Is InternetExplorer) And (w.LocationURL = targetURL) Then
とかVBAが短絡評価しない事を知らないみたいだし

2020/01/11(土) 16:57:09.64

北海道のグラサンスーパーハゲザーはここにはこないのー？

2020/01/11(土) 18:06:59.10

ｷﾀ━━━━｡ﾟ+.ヽ(´∀`*)ﾉﾟ+.ﾟ━━━━!

2020/01/12(日) 10:23:37.27

>>298
そもそもShellWindowsオブジェクトはイテレータでIEオブジェクトを渡してるから型判定自体不要

修正版

Sub TableControl()
Const targetURL$ = "http://www.ikachi.org/sample/sample10.html";
Dim ie As InternetExplorer: Set ie = GetIEObject(targetURL)
If ie Is Nothing Then MsgBox "Plz Open the Web page": Exit Sub
'残りのコード
End Sub

Public Function GetIEObject(ByVal targetURL As String) As InternetExplorer
For Each GetIEObject In CreateObject("Shell.Application").Windows
If GetIEObject.LocationURL Like targetURL Then Exit Function
Next
Set GetIEObject = Nothing
End Function

久々に書いたから変な部分あるかもしれないが、これで一応MsgBoxは開く
個人的には、こんなややこしい事せずに普通にVBAで開いた方が確実だと思う

2020/01/13(月) 12:47:26.86

AndAlsoってないんだっけ？

2020/01/13(月) 12:51:11.64

AndAlsoやOrElseはVB.NET
もうVB.NETでもいいからExcelに載せろよとは思う

2020/01/13(月) 15:28:45.56

はいネトウヨ論破ｗｗｗｗ
現実という劇薬を投与されて憤死したなｗｗｗｗｗ

2020/01/13(月) 15:29:12.31

誤爆したわ

2020/01/13(月) 15:35:18.58

イラン「誤爆した」

2020/01/13(月) 18:49:02.06

>>301
ありがとうございます。
メッセージがちゃんと出ました。

2020/01/14(火) 03:53:35.18

>>303
短絡評価ぇ…

2020/01/15(水) 09:32:44.41

基本的な事ですいません。
ActiveWorkbook.SaveAs Filename:=Cells(2, 36) & yyyy & "年" & mm & "月" & dd & "日" & ".xlsm"

セル内の文章と日付でセーブする機能を盛り込んでいます。
実行時ファイル名が変わってエラー無く、VBAが動き続けているのですが、

saveするフォルダ内に該当のエクセルファイルそのものが見当たりません。
見かけ上の問題だけか？と思い、停止してフォルダを検索しましたがエクセルファイルはありませんでした。

ActiveWorkbook.SaveAs Filenameというのは、新しく名前を付けて保存なので、中身はともかく実行されたらエクセルファイルは生成されますよね？

**309** (ﾜｯﾁｮｲ a9f8-otum) · 2020/01/15(水) 09:49:48.07

すいません。自己解決しました。

指定フォルダにsaveする記述がズレていただけでした。

2020/01/15(水) 19:10:48.65

あなたのハゲにサクセスしたい

2020/01/15(水) 21:59:00.70

ｷﾀ━━━━｡ﾟ+.ヽ(´∀`*)ﾉﾟ+.ﾟ━━━━!

2020/01/16(木) 21:35:54.79

Excel2019で、
.ActiveWorkbook.SaveAs FileName:=FilePass, FileFormat:=51

ってやると、

'Book1' の変更内容を保存しますか？
ってダイアログが出て保存できないね。
どうしたらいいだろう？お手上げです。

2020/01/16(木) 21:46:08.50

「はい」押したらいいんでないの

2020/01/16(木) 21:51:01.14

>>314
はいを押しても
'Book1' の変更内容を保存しますか？
って同じダイアログが出続けて保存できません。

2020/01/16(木) 21:56:43.44

じゃあいいえ押せば

2020/01/16(木) 22:25:40.00

>>315
Application.DisplayAlerts = False

2020/01/16(木) 23:46:15.85

そんなの出たっけ?
CSVだとしつこく聞いてきたような記憶があるが。

2020/01/16(木) 23:49:24.36

保存せず閉じる時に出るメッセージかな

2020/01/17(金) 12:59:57.34

>>313

「保存されたこと」にしてしまえば？

オブジェクト.Saved = True

2020/01/17(金) 19:34:06.53

間に何かのイベントが反応して、何も変更してないのに、変更したと見なされちゃってるとか?

2020/01/17(金) 19:48:23.52

揮発性関数を使ってるとファイルをオープンしただけで変更したと見なされる

**313** (ﾜｯﾁｮｲ a9cc-0hUg) · 2020/01/17(金) 23:26:14.60

CreateObject("Excel.Application") でＣ#からExcelを操作してます。
Excel2016までは正常にできてたけど、Excel2019になってこの症状が出ています。

>>316
いいえでも無限ループ

>>317
効果ありませんでした。

>>318
Excel2019で出るようになりました。

2020/01/18(土) 00:21:02.59

C#ってウソだろ?
VBAの構文しか見えないが。
今はそんなことになってるのか。

2020/01/18(土) 00:37:29.12

どうせC#のコード内でExcelを呼び出してるんだろうね。

2020/01/18(土) 01:13:27.38

>>323
savedは

2020/01/18(土) 03:37:25.77

参照設定見直し

2020/01/18(土) 04:11:21.84

競馬やる奴、毛根をハーゲットに取り込む方法教えます

2020/01/18(土) 06:07:28.94

自作データベースをエクセルでも管理できるように
簡易CSV形式（つまりカンマで区切っただけ）のテキスト出力できるようにしたんだけど
文字コードがUTF-8だと自作→エクセルなら大丈夫なんだが
エクセル→自作に戻すと文字化けする。
エクセルのCSVってShift_JISでしか出せないの？

2020/01/18(土) 06:15:01.10

UTF-8形式のテキストファイルに書き込む
http://officetanaka.net/excel/vba/file/file11.htm

2020/01/18(土) 06:49:02.70

あー最新版ならファイルメニューにあるんだな・・・
おれの2010だわ
ありがとう

**313** (ﾜｯﾁｮｲ a9cc-0hUg) · 2020/01/18(土) 20:48:30.71

>>326

効果なし。
タスクマネージャーを確認すると、Excel終了できないで残ってるし。
Excel2019ってキングソフト以下の糞になったのかな。

2020/01/18(土) 22:42:14.81

>>332
残ってるのは自分がちゃんと解放してないからですな…

2020/01/18(土) 23:05:19.33

ADO使う時、VBAだとExcel8.0も12.0もいけるのに、VBSだと8.0しか使えない。
12.0を使おうとすると、プロバイダがないだのISAMがないだの言われる。
多分、VBAだと参照設定でADO2.8とか6.1を選べるけど、
VBSはCreateObjectで、自由に選べないのが原因じゃないかと思うんだけど、
具体的にdll指定する方法とか無い?
え? Accessの何とかコンポーネント入れろって?
会社のPCだから、使う人の分申請するの面倒なんだよ。
え? そもそもVBSスレじゃないだろって?
あっちは何か変なのが住み着いてるじゃん。クリボーみたいなAA貼って。

2020/01/18(土) 23:09:07.17

>>334
CreateObjectにバージョンまで書くだけ

2020/01/18(土) 23:24:48.43

気持ち悪いよねVBSスレ
死んでくれないかな誰とは言わないけど

2020/01/18(土) 23:29:07.74

>>332
エスケープでキャンセルするは？

**313** (ﾜｯﾁｮｲ a9cc-0hUg) · 2020/01/18(土) 23:44:31.92

>>333
そんなのちゃんとやってますわ。
Excel2016 までは普通に動いてたんですよ。

>>337
なにやってもダメ。タスクマネジャーから強制終了するしかない。

てか今日はなぜか再現しなくなった。
Excelって何かアップデート入った？それともWindows10起因かな？

2020/01/19(日) 00:23:37.04

普通、PowerShell, VBScript などで、
Excel, IE などを起動すると、プロセスが残る

プロセスを終了させるには、名前で調べて、終了させないといけないから、
名前が一致すれば、無関係のプロセスも、終了させられてしまうw

2020/01/19(日) 00:27:32.31

>>334
VBS のスレ主のピッコロ大魔王は、すごい使い手だよ。
VBSで、5ch をスクレイピングしたりもするし

ただ、荒らしに粘着されてる。
コテハンは目立つから、どうしても粘着される

2020/01/19(日) 00:31:47.67

＞VBSで、5ch をスクレイピングしたりもする
スキルとしては下の下なんだが

2020/01/19(日) 01:08:44.67

あなたのハゲにサクセスしたい

2020/01/19(日) 01:12:37.02

でもまともなエディタないのにスクレイピングできるってちょっとすごいと思うわ

2020/01/19(日) 01:28:51.78

>>343
そう言われてみると確かに凄い！

2020/01/19(日) 14:51:45.20

>>335
CreateObject("ADODB.Connection.6.1")も、
CreateObject("new:{B691E011-1797-432E-907A-4D8C69339129}")もダメだったわ。
ActiveXコンポーネントを作成出来ませんって。
何がダメ?

2020/01/19(日) 15:15:57.62

もういい加減IE辞めたら？
あんたの会社セキュリティ意識なさ過ぎじゃない
大丈夫なの？表の仕事はしてない会社なのか

2020/01/19(日) 15:59:41.27

VBAを捨てられない組織がIEを捨てられるわけがないだろう

2020/01/19(日) 16:26:59.69

>>345
ADODB.? てのは無いんだっけ…

2020/01/19(日) 18:16:17.91

上司が無能

2020/01/19(日) 20:13:14.65

IE?
何の話?

>>335はADOの話だし、>>340のスクレイピングはIEとは言ってないよな。

それともスクレイピングはIEでしか出来ないレベルの人?

2020/01/19(日) 20:55:51.63

>>348
何それ?
どうしてもダメなら、最悪MSQuery使うつもりだけど、
シート名の指定が変な特殊文字で面倒臭いんだよな。

2020/01/19(日) 20:56:52.40

ActiveX

2020/01/19(日) 22:36:56.65

>>106　これと同じ人なのですが、レコード番号が不正と出ます。
セルの指定が上手くいってないのだろうとはわかりますが、どうしたらいいかわかりません
すごい初歩的なとことで躓いている気がするのですがご教授ねがいます

Sub Test_Open()

Dim a As Byte
Dim strFilePath As String
strFilePath = ActiveWorkbook.Path & "\data.bin"

Open strFilePath For Binary As #1

Dim i As Integer
For i = 1 To 6
Put #1, Cells(i, 1), a
Next i

Close #1

End Sub

2020/01/19(日) 23:04:08.22

>>353
For i = 1 To 6
　　a = Cells(i, 1)
　　Put #1, , a
Next

2020/01/19(日) 23:34:15.88

ありがとうございます！　やっと一歩進めました

ただ最終的に、ある行の１～数万行のデータをその数値のままバイナリデータに変換したいので
現在だと　17　なんかは　11　00　のように入力されてしまうことと
セルの　Cells(i, 1)　数値の方を変更すると型の不一致と出てくることは何が原因でしょうか
　小さすぎるかと思って　As Byte　を　As Long　にしてもダメでした

2020/01/19(日) 23:40:29.46

型の範囲よく判ってないならちゃんと調べた方がいいよ

2020/01/19(日) 23:55:33.87

あなたのハゲにサクセスしたい

2020/01/20(月) 00:40:12.58

型の範囲……調べてもそう難しくなさそうなのに何故か不一致の時は不一致に
ただ、いろいろ試していたら行の指定や範囲の指定はなんとかなったんですが、
やっぱり数値が16進に置き換わってしまいます
Dim a As Byte　をStringとかに変えると　まあ文字列になってしまうし

2020/01/20(月) 01:56:26.20

>>358
セルに入ってる数字は最大いくつ(何バイト分)なの？

2020/01/20(月) 02:04:25.58

もしかして、やりたいのはこういうことか？

Sub Test_Open()
　　Dim a As Integer
　　Dim strFilePath As String
　　Dim i As Integer
　　strFilePath = ActiveWorkbook.Path & "\data.bin"
　　Open strFilePath For Binary As #1
　　For i = 1 To 6
　　　　a = Val("&H" & Cells(i, 1).Text)
　　　　Put #1, , a
　　Next
　　Close #1
End Sub

2020/01/20(月) 08:18:58.19

お手間をかけます

セルの値は00～FFの範囲で　セルの見た目そのままをバイナリに落とし込むことを目的としています

例えば書いていただいた　>>360　では
セルの値が　01　だと書き出したほうは　01　00　となるので　
後ろの　00　は省いて書き込みたいと考えています

2020/01/20(月) 11:15:52.64

>>361
それなら最初の宣言を
Dim a As Byte
に戻すだけ

2020/01/20(月) 12:30:47.41

ああ、出来ました！
i の範囲もLongにしたら数十万も対応できたので思っていたのが完成しました

長々と丁寧にお付き合いいただき、ありがとうございます！

2020/01/21(火) 16:05:59.09

>>363
エクセルの最後までいくとえらーでるんじゃね

2020/01/21(火) 18:50:01.59

実行するとめっちゃ重くなり、一度エラーがありましたが、
その時以外は、成功しています

2020/01/21(火) 18:53:25.76

話しは変わりますが、”Microsoft Office Desktop Apps” と表示されてる方がデスクトップ版じゃなくてストアアプリ版だって本当ですか？

2020/01/22(水) 18:27:54.50

一つのシート上の複数セルに関数が設定されています。

すべてのセルの関数の処理が一つ一つ処理されていき、最終的にすべてのセルの更新処理が終わったときに、あるマクロを動かしたいのですが、どうやればいいのでしょうか？

2020/01/22(水) 18:51:55.87

もはやExcel大喜利だな。

2020/01/22(水) 19:00:23.17

ここには北海道のスーパーハゲザーはこないのー？

2020/01/22(水) 19:20:56.10

>>367
セルの関数を指定のタイミングと順番で処理したいってこと？
関数の入ったシートのEnableCalculationプロパティをFalseにして、
計算したい関数の入ったRangeのCalculateメソッドを順次呼べば一個ずつ処理できる
それで最後の関数の計算が済んだ後にマクロを実行するとか

一応関数の計算終了時に動かすマクロはシートのCalculateイベントに書いても実行できるけど、
シート全体が対象だからCalculateメソッドが走るたびに発火するから使えないと思う

2020/01/22(水) 21:36:24.98

>>370
ありがとう
試してみます

自分で作った関数を引数変えて500セルくらいが呼び出す状態なんです。
んで、かなり遅くて、全部が終わるまで5分位待つことになるので、それではつかいものにならないので、高速化を図りたいのです。

2020/01/22(水) 21:45:06.72

そろそろ python とか考えた方がいいデータ量だな

2020/01/22(水) 22:07:39.73

>>371
そういうのは、いちいちワークシートとか数式を使わずに、全部配列で処理すれば5秒で終わるよ

2020/01/22(水) 23:41:11.62

そう思っていた時代がありました。
セルに数式とかダセェぜ、これからはSQL

2020/01/22(水) 23:42:00.02

だ、とか思って、DSUMのあまりの遅さに撃沈。

2020/01/23(木) 04:03:57.39

500セルに対するETL処理だからPowerQueryでインメモリ処理すれば良いのでは

2020/01/23(木) 12:47:14.66

>>375
DSUMなんて使うからだろw
というか、Dの付く奴は手軽だけど使わないのが基本じゃ無いの?

2020/01/23(木) 12:48:15.57

というか、普通は>>373だろ。

2020/01/23(木) 23:18:33.64

dsumよりサブクエリの方が速いのが納得いかん。
あんな遅いの、何であるんだ?
俺の使い方が下手なだけで、速く使える人もいるのか?

2020/01/24(金) 07:02:09.49

>>379
db関数はAccessから持ってきただけのなんちゃって関数だと思っている
実装後にブラッシュアップでも考えていたのかもしれないが、今となってはもう・・・

2020/01/24(金) 10:44:07.60

あなたのハゲにサクセスしたい

2020/01/25(土) 05:46:11.97

新聞配達しながらプログラミングのこと考えてたんだが
オブジェクト指向こそプログラミング的発想の1丁目1番地で
オブジェクト指向が解らないやつは3流のクズってことで結論出ました。

2020/01/25(土) 07:10:00.59

>>382
高評価

・プログラミングできるのに新聞配達？何も分かっていないだろうと思わせる
・コンビニ店員ではなく、新聞配達というというのも良いチョイス。考え事ができそうなイメージがある
・ただ惜しいのは「プログラミング的発想」。プログラミング的発想が原初のプログラミングを指すならさすがに手続き型になる
・恐らく元は別のコピペであることは容易に推測できる

コピペにしろ、なかなか良いチョイスではあるが、詰めが甘い

2020/01/26(日) 10:47:31.88

転記元の最終行を取得するところで1004エラーがでる

Dim fl As String
Dim WBo, Wbd As Workbook
Dim a As String
Dim ex As String
Dim syamei As String

Sub 変換ファイル選択()
syamei = Range("B3")
fl = Application.GetOpenFilename
ThisWorkbook.Worksheets(1).Range("C1") = fl
Set WBo = Workbooks.Open(fl)
MsgBox "出力先を選択"

With Application.FileDialog(msoFileDialogFolderPicker)
.Show
a = .SelectedItems(1)
End With
With ThisWorkbook.Worksheets(1)
ex = a & "\" & .Range("B3") & "_" & Year(Now) & "_" & Month(Now) & ".xlsx"
.Range("C2") = ex
.Activate
End With
Set Wbd = Workbooks.Add
Wbd.SaveAs ex
ThisWorkbook.Worksheets(2).Activate
ActiveSheet.Copy Wbd.Worksheets(1)
ThisWorkbook.Worksheets(1).Activate
End Sub

2020/01/26(日) 10:47:38.48

Sub 変換処理()

Dim Wsd As Worksheet '請求書
Dim Wso As Worksheet '転記元
Dim i As Long 'ForNext用
Dim j As Long
Dim ko As Long '個数
Dim Kohani As Range
Dim fnkohani As Range
Set Wsd = Wbd.Worksheets(1)
Set Wso = WBo.Worksheets(1)
Const Dhin = 1
Const Dtan = 2
Const Dko = 3
Const Dkin = 4
'転記元定数
Const Ohin = 4
Const Otan = 3

Wsd.Activate
With Wso
Range("E3") = Year(Now) & "/" & Month(Now)
j = 7
For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(i, 1) = syamei Then
MsgBox syamei
End If
Next i
End With
End Sub

2020/01/26(日) 10:48:01.26

for i = のところね、なんで？

2020/01/26(日) 11:12:02.47

>>384
もうちょっとテストしやすい形にしてくれ

>>384　最期から三行目ぐらいでエラー。原因は多分ファイルの構成かなんかだろう
>>385　エラーにならない

エラーになるファイルか、スクリーンショットでも貼ってくれ

2020/01/26(日) 11:21:15.83

>>386
たぶんこうじゃないかな
For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row