別の方法

Excel VBAでのCSVファイルの読込み。 QueryTables.Addで上手く行ってると思ってたのだけど、あるデータ内に改行があるとそのデータの以降のデータが読めてないとクレームが来た。 やってみると、たしかにCSVファイルには、ダブルクオートで囲まれた文字列の中に改行コードが入っているけど、読込んだExcelのセルを見ると改行以降のデータが消えている。 なんだよ、QueryTablesじゃダメなんだと思い、ネットをググってみると、 QueryTables.Add だと、改行で別レコードになるというページを見つけた。 で、そのページに

ADOを使って読み込んでみたら、セル内改行があっても正常に読み込めました。

って書いてあってURLも出ていた。 早速、コピーして試してみると、上手く行くことが分かった。 にしても、毎回CSVには悩まされるなぁ。
--
のち

戦利品

写真は、FFのクルマ以外の戦利品たち。 キーホルダー、チンクのペーパークラフトキット、公式ステッカー、よくわからない何か（笑）。 よくわからない何かは、リアビューミラーに引っかけて使うみたい。 そうそう、FF当日、会場に向かう関越道で、やけにロドスタが多いと思っていたら、軽井沢で会合があったらしい。

■

そして、阪神が8連勝で交流戦突入。 きょうも西武に勝って9連勝は、16年振りらしい。 ホントにあれを手に入れられるのかもと期待を持ってしまう。
--
のち

増車

きのうのFFで、今年は２台増車した。 本物は無理なので、ミニカーにしてやった。 てか、スパイダーは真面目に欲しいかもって、無理は無理なんだけど。 159は全然知らなかったのだけど、フォルムにやられた。 かっちょええ！

■

さらに、FBで見たMAZDAのコスモスポーツも先週ポチったのが、きょう到着。 コスモスポーツは、子供の頃、『帰ってきたウルトラマン』で見て、かっこいいなと思っていて、たまたま実車を見たときには、目を疑った。 TV番組用に作った（カスタマイズされた）車で、本物が存在するとは思ってなかったので。 その後、いろんなことがわかるようになり、世界で初めて市販されたロータリーエンジン搭載車ということも知ったし、東京モーターショーの会場に広島から松田恒次社長が試作車で乗り付けた逸話も聞いた。 勿論、バルもだけど、ボクにとって心を奪われたクルマの1台ではある。
--
ときどき

FIAT FESTA 2023

恒例のFIAT FESTAも30回目らしい。 今年は、去年のFIAT FESTAで知り合ったH氏から一緒に行かないかとの誘いがあったので、FBに告知をしてみんなで行くことになった。 SAは混むので、嵐山PAに集合することにした。 ほぼ予定の時間に、みんな集合。 4台並んで会場を目指した。

■

高速を降りて、いつもの道の駅で小休止に立ち寄ると、プントチームのようへいさんとばったり。 ここで、時間調整をして、出発。 会場近くで、石川の山村さんと合流して、会場入りした。 開場後30分くらいに到着したのに、既に第一駐車場は一杯で、第二駐車場に案内される。 30周年の記念らしく、チンクのペーパークラフトのキットをもらった。 内容は、例年通りで、これと言って変わったことはない。 会場では、未確認の黄色のニューバルとリミテッドの銀バルを発見。

■

車検の関係で前橋方面に前泊していた子供とも合流した。 秋にツーリングをする予定を立てる。 今年は、福島か長野方面ということになった。 昼頃みんなで撤収して昼食。

■

今年は、ダムカレーを卒業して、たまたまTVの旅番組で見た育風堂というレストランにする。 なかなかの人気店らしく、駐車場が一杯で、ちょっと待ってやっと停められた。 ここに、会場で見かけた黄バルも停まっていた。 メニューはちょっとお高いけどリブボーンステーキ（ポーク）セットにする。 しばらく待って出てきた料理は想像の1.5倍ほどの大きさでちょっとびっくり。 肉の脂身が美味しい。

■

食事の後、外に出ると、黄バルのオーナーと遭遇。 早速、FBのグループに勧誘した。 ここで散会して帰路に就く。 一旦ばらけたものの、関越でまたまこぺたさんと遭遇。 編隊走行をしていると、今度は会場で見かけた銀バルと邂逅。 連なって赤城高原SAに誘導（笑）？する。 ここでちょっと会合。 バルは、去年の秋に手に入れたそう。 FBはやってないそうで、まこぺたさんとLINE でつながった。 少ないとはいえ、新たなバル乗りと知り合えるのは喜ばしい。 ここで、別れて再び帰路に。

■

関越は事故渋滞で45分ほど渋滞。 渋滞を抜けた高坂SAでトイレ休憩をしていると、再びまこぺたさんと遭遇。 その後は、ほぼ順調に進み、6時ごろ無事帰還した。
--
ときどき

パトロール（2023-05-27）

明日に向けて洗車の後、いつものパトロール。 土曜日の東京港臨海道路（ゲートブリッジの前後の道）は、トレーラーがいっぱい。 日曜日は、ほとんど見かけないけど。 きょうは、歌舞伎座前も4丁目の交差点もスルー。 気温も高く、初夏の様相。
--

FOR YOU

つい、出来心で達郎の『FOR YOU』を買ってしまった。 まさか、今頃、LPレコードを買うとは思わなかったよ。 早速聞いてみたんだけど、CD（MP3プレーヤー）とは音圧が違う気がした。 音量じゃなくてね。 まあ、耳が耳なので、大したことは言えないんだけど...。
--

らんまん（朝ドラ）

らんちゃんじゃないよ。 放送が始まる前、番宣の神木隆之介が、みょうにいけ好かないと思っていたのだけど、本編はそうでもなく、普通に見ている。 舞台というか出身が同郷でもあり、内容も普通に面白い。 ボクが子供の頃、モデルの牧野富太郎について、学歴が無くて苦労したという話しを母親から聞いたことを覚えている。 ドラマでも小学校中退という設定で、やっぱり苦労しているみたい。 相手役の浜辺美波も可愛らしい。 wikiによると、覚えてないけど『まれ』にも出ていたらしい。 あと、浜辺美波の叔母役の宮澤エマも鎌倉殿以来だ。 十徳長屋の差配人、安藤玉恵もいい味を出している。
--
いちじ

通院（2023-05-24）

きょうは、皮膚科の結果発表。 午前中仕事して、昼を食べてから出発。 ほぼほぼ予定通りに到着。 受付を済ませ、皮膚科のフロアに移動。 15分くらい遅れて呼ばれた。 結果は、良性。 どうやらガンではないらしい。 ほとんど、ガンだと思っていたので、ちょっと拍子抜け。 いずれにしても、良かった。 今後は、患部の治療をしてもらうことになった。 塗り薬を処方してもらい、1ヶ月後に受診することになり、終了。 帰りに、クスリを受け取り、食材を調達する。
--

コロナワクチン接種券

いままで、何もしなくても（最初は基礎疾患の申請をしたかも）送られてきたワクチンの接種券。 5類に移行されても、基礎疾患のある人は無料でワクチン接種できるみたいに報道されている。 なので、待っていれば送られてくるのかと思っていたら、どうやら違うらしい。 区のHPを見ると、
    『令和5年春開始接種を受けるためには、接種券の発行申請が必要です。』
と書いてある。 ああ、そうなんだ、申請しないと送ってくれないのね。 知らなかったよ。 とは云え、受けようか止めようか悩み中。 きっと受けといたほうが安心だとは思うのだけど、アナフラキシーとか、いきなりなるらしいのが心配。
--

選挙結果

区長選は、予想通り、現職が大勝。 区議選は、自民党が苦戦して、第一党を全勝した公明党に譲ったらしい。 そして、ここでも維新の躍進が目覚ましく擁立した3人全員が当選して初めて議席を獲得したそう。 れいわ新選組も初の1議席を取ったみたい。 党派別の獲得議席は、公明党が13、自民党が12、共産党が6、立憲民主党が3、日本維新の会が3、国民民主党が1、れいわ新選組が1、参政党が1、都民ファーストの会が1、無所属が4だそう。 投票率は42.79%、前回を0.1ポイント下回ったそう。
--

狩りの季節

春の恒例、潮干狩りに孫一家と一緒に行ってきた。 GWは外れているものの、結構な人出。 そんなに採れないものの、まったく採れないわけでもない。 まずまずの収穫。 去年はダメだった孫たちも、今年は、ちゃんと採っている。 昼前に撤収。 ファミレスでランチの後、実家に寄ってお茶をご馳走になる。 正月に来る予定だったのだけど、コロナで中止になったので、約1年振り。 孫は、父親のことを、パパのパパのパパと理解できているのかしら？ 1時間ほどお邪魔して暇。 渋滞にはまり2時間ほどで帰ってきた。 それから、区長選と区議選に近くの区民センターに向かう。
--
のち

雨のパトロール（2023-05-20）

諸般の事情で、午前中にパトロール。 出たときは曇りだったのに、途中で雨が降り出した。 バルに乗るのは、駒ヶ根のBBQ以来。 ルートはいつもの通り。 変わったことといえば、環七をリアウィンドウに大きな番号を貼った国際興業のバスを見たことくらい。 国際興業のバスは、この辺では見たことがない。 湾岸道路の新木場を左折して東京ゲートブリッジ方面に向かったので、もしかしたら、ビックサイト辺りのイベント用かもしれない。
--
ときどき のち

通院（2023-05-19）

きょうは、ストマ外来。 朝、ちょっとだけ仕事してから、病院に向かった。 5分遅れで診察が始まった。 きょうは、ストマ外来でパウチを張り替えるのに、今朝、ぼうーとしていて、コロ側のパウチを張り替えてしまったことを話すと、コロはそのままで、ウロだけ交換することになった。 サクッと交換してもらい、20分ほどで終了。 11時過ぎには病院を後に出来た。 きょうは、時間もあるので、この前、食べ損なった『一心』でランチを頂くことにする。 病院から10分も走らずに末広町に移動。 店の近くのコインパーキングにクルマを停め、暖簾をくぐった。 見覚えのある大将にオーダーを告げ、指定されたカウンターに座った。 しばらくして、鶏の塩焼き定食が運ばれてきた。 なつかしいというか、ボクが通っていたころは、豚の生姜焼きだったのが、数年前か、もっと前かもに来た時、鶏に変わっていたので、あまり味は覚えていない。 付け合わせのにゅうめんの味は、むかしとおなじ味で、懐かしかった。 帰りに、地元で食材を調達して、1時前に帰ってきた。 午後からは、また仕事。

■

ウクライナ、ゼレンスキー大統領がG7広島サミット出席のため来日するらしい。 やるなあ。
--
のち

真夏日

天気予報によると、今日は都心も30℃を越えるらしい。 流石に寒がりのボクでも暑いと思う昼下がり。

■

市川猿之助自殺報道。両親死亡の由。
--

別ブックに複数シートのコピー（Excel・VBA）

処理結果を複数のシートに出力した後、その結果のシートだけを別のブックに出力する処理を作っている。 複数のシートを別ブックとして出力する方法は、ネットを見ればすぐにいくつも見つかる。 例えば、こんな感じ。

Application.DisplayAlerts = False              ' メッセージボックスを非表示
ThisWorkbook.Worksheets(Array("A", "B", "C")).Copy
ActiveWorkbook.SaveAs Filename:=strFileName    ' 名前を付けて上書き保存
ActiveWorkbook.Close False                     ' 新しく作成したブックを閉じる
Application.DisplayAlerts = True               ' メッセージボックスを表示

それはいいのだけど、出来上がったブックのシートの順番が問題。 ボクは、Array("A", "B", "C") とか Array("B", "A", "C") のように Array の順番にできるのかと思っていたけど、そうではなく元のブックの順番に依ることが分かった。 Array の順がどうであろうとかわらない。 なので、元のブックのシート順を変えるか、コピー後にシートの順番を変えるしかなさそう。
--

休場

大相撲夏場所、贔屓の力士もいなくなり、ほとんど見なくなったのだけど、たまたま初日の放送を見た。 いつもなら、初日は、正面の解説が北の富士、向正面は舞の海なのに、正面が舞の海で、向正面が西岩親方だった。 どうしたのかと思い、ネットを見ると、北の富士は春場所から休んでいるらしい。 春場所も、ほとんど見なかったので知らなかったよ。 二人の掛け合いが面白かったのに、休場とは残念。 元気になって復帰してほしい。
--

どうやら家康

どうやら、『どうする家康』の途中で眠ってしまい、何気に見ていた『レジデント・エイリアン』も、目が覚めたら終わっていた。 レジデントは、くだらないと思いながら結構面白くて見ていた。 今日が最終回で、来週から『アストリッドとラファエル』のシーズン2が始まるらしい。 DOCほどではなかったけど、これも面白かったので楽しみ。
--
ときどき