常連

情報収集家

自己紹介

## 🖊️テーマ
気に入っているVSCode拡張機能はなんですか
仕事で使っている拡張機能、個人で使用しているVSCode拡張機能を募集します！

### 👤運営メンバーの「気に入っているVSCode拡張機能」
運営メンバーKさんの気に入っているVSCode拡張機能は「live share」でした！
オンラインでもコードを見ながら話ができるのがすごい便利だそうです！！

### 〜teratailトーク!とは？〜
詳細を公式ブログで公開しています。ぜひお読みください。
「teratailトーク!」スタート🎉　気軽に意見交換しよう！

気に入っているVSCode拡張機能はなんですか?

### 実現したいこと
News APIで、日本のニュースが取得したい

### 発生している問題・分からないこと
【初心者向け】GoogleのAI「Gemini」に毎朝ニュースサマリーをLINEに送ってもらおう！
https://qiita.com/jkk-technologies/items/485174e1ee5cd1d98f5a

こちらのやり方で実装できていたのですが、ある日急に「ニュース記事の内容を教えてください」とLINEがくるようになりました。

調べた所
APIキー自体は正しく機能しているようですが、記事が取得できていないようです。

const newsApiUrl = https://newsapi.org/v2/top-headlines?country=us&apiKey=${newsApiKey};

とアメリカのニュースだと取得が確認できました。
無料プランだと使用制限があるのでしょうか。。。

### エラーメッセージ
```error
function fetchNewsToSheet() {
  const sheet = SpreadsheetApp.getActiveSpreadsheet().getActiveSheet(); // シートを取得
  const newsApiKey = 'YOUR_NEWS_API_KEY'; // あなたのNews APIキーを入力
  const newsApiUrl = `https://newsapi.org/v2/top-headlines?country=jp&apiKey=${newsApiKey}`;

  // News APIを呼び出すための設定
  const newsApiOptions = {
    'method': 'get',
    'contentType': 'application/json'
  };

  try {
    // News APIを呼び出して結果を取得
    const response = UrlFetchApp.fetch(newsApiUrl, newsApiOptions);
    const newsData = JSON.parse(response.getContentText());

    // レスポンスのステータスや記事数をログに出力
    Logger.log('Status: ' + newsData.status);
    Logger.log('Total Results: ' + newsData.totalResults);

    // シートの内容をクリア
    sheet.clear();

    // ヘッダーを書き込む
    sheet.appendRow(['Title', 'Description', 'URL']);

    // 記事が存在するか確認
    if (newsData.articles && newsData.articles.length > 0) {
      // ニュース記事を1つずつシートに書き込む
      newsData.articles.forEach(function(article) {
        sheet.appendRow([article.title, article.description, article.url]);
      });
    } else {
      // 記事が存在しない場合の処理
      sheet.appendRow(['No articles found']);
      Logger.log('記事が見つかりませんでした。');
    }
  } catch (e) {
    // エラーが発生した場合の処理
    Logger.log('Error: ' + e.message);
    sheet.appendRow(['Error: ' + e.message]);
  }
}

これのログが
{"status":"ok","totalResults":0,"articles":[]}
```

### 該当のソースコード

```
特になし
```

### 試したこと・調べたこと
- [x] teratailやGoogle等で検索した
- [ ] ソースコードを自分なりに変更した
- [ ] 知人に聞いた
- [ ] その他

##### 上記の詳細・結果
ChatGPTで検索しましたが、原因がわからない

### 補足
特になし

News APIで、日本のニュースが取得できない

### 実現したいこと
PythonでExcelファイルを保存して、セルA1にHello!を表示させたい。

### 前提


### 発生している問題・エラーメッセージ
PythonでExcelファイルを保存して、セルにHello!を表示させようと
しましたが、AttributeErrorが表示されます。このためExcelファイルが
Saveされずに先に進みません。

```エラーメッセージ
PS C:\Users\User\Udemy> python office_operation.py
Traceback (most recent call last):
  File "office_operation.py", line 3, in <module>        
    wb = px.load_Workbook('excel_sample.xlsx')
AttributeError: module 'openpyxl' has no attribute 'load_Workbook'
PS C:\Users\User\Udemy> 
```

### 該当のソースコード

```Python
import openpyxl as px

wb = px.load_Workbook('excel_sample.xlsx')
ws = wb.active
ws['A1'] = 'Hello!'
ws.title = 'sample_title1'
wb.save('excel_sample.xlsx')

```

### 試したこと

ネットでAttributeErrorの解決方法を検索しましたがこのケースに
おいてどのようにすれば解決するかわかりませんでした。

### 補足情報（FW/ツールのバージョンなど）
バージョン　Python 3.8.2


PythonでExcelファイルを保存して、セルにHello!を表示させようと しましたが、AttributeErrorが表示されます。解決方法を教示いただきたいです

### 実現したいこと
VBAまたはPythonを使ってExcelで作成したシートをfujifilm複合機で自動FAXするようにしたい

### 発生している問題・分からないこと
現状は以下の通りです。
（Windows10、Office2021版Excel、複合機 FUJIFILM Apeos C2360を社内LANで接続）

① 作成したExcelシートを印刷メニューからプリンタ「FUJIFILM Apeos C2360 FAX」を選択し印刷ボタンを押します。
② 前面に「印刷中」のポップアップが表示され、その背面に「ファックス送信の設定／確認：ファイル名」ダイアログが開くのでこちらをアクティブにします。
③ [宛先番号/アドレス]欄にFAX番号を入力し[送信開始]を押します。
④ 宛先の一覧に自動的に追加しますという「警告」のポップアップが表示されるので「OK」を選択します。

①～④を自動化するためにVBAでコードを組んでみましたがプリンタ選択をし印刷を始めるところ（①）までしか分からず困っております。ファックス送信設定ダイアログにFAX番号を送って送信開始をさせるところがどのようにしたらいいのか分かりません。



### 該当のソースコード

```VBA
Sub Send_Fax()
    Application.ActivePrinter = "FUJIFILM Apeos C2360 FAX on Ne06:"
    ActiveSheet.PrintOut
    
    'この先が分かりません…
End Sub
```

### 試したこと・調べたこと
- [x] teratailやGoogle等で検索した
- [ ] ソースコードを自分なりに変更した
- [ ] 知人に聞いた
- [x] その他

##### 上記の詳細・結果
VBAで無理ならPythonからVBAを起動し、ダイアログを操作できないか試しましたがうまくダイアログをつかめませんでした。
（Python 3.12.3、xlwings 0.31.4、pygetwindow 0.0.9、pyautogui 0.9.54 使用）

import xlwings as xw
import pygetwindow as gw
import pyautogui as pag
import time

path="C:/Users/xxxxxx/Desktop/FAX_TEST.xlsm"
wb=xw.Book(path)

title='FAX_TEST.xlsm'
e1=gw.getWindowsWithTitle(title)[0]

#Pythonから上記マクロを起動してます
macro=wb.macro('Send_Fax')
macro()

time.sleep(2)

#　↓ファックス送信ダイアログのタイトルです
title='ファックス送信の設定／確認：FAX_TEST.xlsm'
e2=gw.getWindowsWithTitle(title)[0]

time.sleep(2)
e2.activate()

time.sleep(2)
pag.write('03-xxx-xxxx')

エラーは発生しないのですが、ダイアログが表示された状態で止まっています。
ダイアログが前面に出ていますが、タイトルがグレーアウトしているのでアクティブにはなっていません。

### 補足
PythonからのGUI操作ではなく複合機のAPIを操作する方がいいのでしょうが、ネット上に分かりやすく紹介してありません。FujiFilmのHPにも参考にできる資料が無くて困っております。どなたかご教授お願い致します。

【VBA】or【Python】Fujifilm複合機のFAX機能をPCで操作するには

## 就活中兼勉強中のエンジニアです。

次にエントリーする企業のコーディングテストの内容として、WebAPI実装やフロントエンド実装がテストとしてでます。練習のために、こういった問題を出題、採点していただけるようなサービスを探しているのですが、ほとんどが競技プログラミングといった、アルゴリズムよりのサイトが多いです。なにかこういったものも取り扱っているサイトをご存知の方はいらっしゃらないでしょうか？



コーディングテスト 練習サイト WebAPI実装, フロントエンド実装 

### 実現したいこと
Access VBAで記述したSQLのSELECT文で指定した項目のみ、サブフォームへ検索結果を出力したいです。

ちなみに、フォームヘッダーに配置した検索ボタンを押すと最終的に「該当のソースコード」が走るようにしております。

### 発生している問題・分からないこと
現状、検索結果はサブフォームのソースオブジェクト（クエリを指定してます）で「表示」と設定した項目が固定となってしまいます。

例えば、クエリで「表示」としているのがA, B, C項目　VBAで作成したSQLが SELECT A, B　FROM ~
とすると、検索結果の項目名はA, B, Cで固定され、SELECT文で指定していない項目Cは
すべて空欄で表示されます。

実現したいことは、検索結果の項目名をA, Bのみにすることです。

※チェックボックスA, Bを選択したら、SELECT A, B　~ の文字列を生成するように実装済みです。
　同様にA, Cを選択したら、検索結果に項目A, Cだけを表示するようにしたいです。

### 該当のソースコード

```SQL
strSQL = 【生成したSQL文】
Me.サブフォーム名.Form.RecordSource = strSQL
```

### 試したこと・調べたこと
- [x] teratailやGoogle等で検索した
- [ ] ソースコードを自分なりに変更した
- [ ] 知人に聞いた
- [x] その他

##### 上記の詳細・結果
ChatGPTに聞くと、sql文が間違っていると指摘されましたが、違いそうです。

### 補足
クエリをソースオブジェクトに指定している理由は、リレーションされた別テーブルのデータを検索結果に表示したいからです。

Microsoft AccessのサブフォームでSELECT文で指定した項目のみを出力したい

### 実現したいこと
- フォルダに入っている複数のpdfを開き、Excelシートに値の貼付けをしたいです。
--フォルダに保管されているpdfが20件あります。
--このpdfを１つ開き、値のコピーをします。
--Excelの"データシート"のA1行目に値を貼り付けします。
--次のpdfを開き、値のコピーをし、B1行目に値の貼付けをします。
--この一連の作業を自動で繰り返し、フォルダ内のpdfをすべて開いたら
　コピー作業は終了します。
--PDFは手動で閉じます。
### 前提

```EXCELVBA
Sub CopyPDFContentsToExcel()

    Dim folderPath As String
    Dim fileName As String
    Dim shellApp As Object
    Dim pdfText As String
    Dim excelSheet As Worksheet
    Dim currentColumn As Long
    Dim i As Long
    
    ' フォルダのパスを取得
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "PDFファイルが入ったフォルダを選択してください"
        If .Show = -1 Then
            folderPath = .SelectedItems(1)
        Else
            Exit Sub ' フォルダを選択せずにキャンセルした場合、処理を終了
        End If
    End With
    
    ' Excelのシートを準備
    Set excelSheet = ThisWorkbook.Sheets("データシート")
    currentColumn = 1 ' 最初はA列からスタート
    
    ' フォルダ内のPDFファイルを一つずつ処理
    For i = 1 To 10
        fileName = Dir(folderPath & "\*.pdf")
        If fileName = "" Then
            Exit For ' ファイルがない場合は処理を終了
        End If
        
        ' PDFファイルを開く
        Set shellApp = CreateObject("Shell.Application")
        shellApp.Open (folderPath & "\" & fileName)
        
        ' 少し待つ（必要に応じて調整してください）
        Application.Wait Now + TimeValue("00:00:02")
        
        ' PDFファイルの内容をクリップボードにコピー
        Application.SendKeys "^a", True
        Application.SendKeys "^c", True
        
        ' クリップボードの内容を取得
        'pdfText = GetClipboardText
        
        ' Excelシートに貼り付け
        ActiveSheet.PasteSpecial Format:="Unicode テキスト", Link:=False, _
        DisplayAsIcon:=False, NoHTMLFormatting:=True
        
        ' PDFファイルを閉じる
        'On Error Resume Next ' エラーを無視して閉じる
        'shellApp.Windows.Find("Adobe Acrobat Reader").Close
        'On Error GoTo 0 ' エラー処理を元に戻す
        
        ' 次のファイルを処理
        currentColumn = currentColumn + 1
    Next i

End Sub


```
### 発生している問題・エラーメッセージ

```
エラーメッセージは表示されません。
1枚目のpdfが開き、コピー後、データシートA1への値の貼付けはします。
2枚目以降pdfが開かず、作業も中断されません。
```

### 試したこと
' PDFファイルを閉じる
の部分がうまく動かないのでコメントとして残してあります。

### 補足情報（FW/ツールのバージョンなど）

EXCELは2019です。
自力での解決が難しく、ご教授お願い致します。
どうぞよろしくお願いします。


【EXCEL VBA】フォルダに入っている複数のpdfを開き、Excelシートに値の貼付けをしたい。

### 現象・実現したいこと
Yahoo!ショッピングAPIの注文詳細APIにて公開鍵認証を利用したいが実行時にエラーが発生します。
原因が分かりません。どうかアドバイスを戴きたいです。

### 前提
PHPにて実装。公開鍵認証を利用しない形での注文詳細APIの実行は問題なく実行可能。
また公開鍵の申請、発行は済んでいます。
アクセストークンは直前にリフレッシュトークンにて取得しています。
（https://auth.login.yahoo.co.jp/yconnect/v2/token）
公開鍵参考ページ
https://developer.yahoo.co.jp/webapi/shopping/help/#effectivepublickey
注文詳細API参考ページ
https://developer.yahoo.co.jp/webapi/shopping/orderInfo.html

### 発生している問題・エラーメッセージ
HTTP/1.1 401 Unauthorized
Date: Thu, 24 Aug 2023 21:34:51 GMT
Connection: close
Cache-Control: no-store
Content-Type: application/xml
Content-Language: en
X-Frame-Options: SAMEORIGIN
X-YahooJ-AuthError: Required authentication information is not found.
Content-Length: 140

<?xml version="1.0" encoding="utf-8"?>
<Error><Message>Bad Request: Authentication parameters in your request incompleted.</Message></Error>

### 該当のソースコード

// Yahoo! JAPAN API アクセストークン
$accessToken = "<アクセストークン>";

// 公開鍵認証情報の準備
$sellerId = "<ストアアカウント>";
$publicKeyPath = "./public.key"; // 公開鍵ファイルのパス
$keyVersion = "1";

// 認証情報作成 (ストアアカウントと unixtimestamp を : で結合する)
$authenticationValue = $sellerId . ":" . time();

// 公開鍵の読み込み
$publicKey = openssl_pkey_get_public(file_get_contents($publicKeyPath));

// 認証情報の暗号化実行
openssl_public_encrypt($authenticationValue, $encryptedAuthenticationValue, $publicKey);

// 認証情報の Base64 エンコード実行
$encodedAuthenticationValue = base64_encode($encryptedAuthenticationValue);

// リクエストヘッダーの設定
$requestHeaders = array(
    "Authorization: Bearer " . $accessToken,
    "X-sws-signature: " . $encodedAuthenticationValue,
    "X-sws-signature-version: " . $keyVersion
);

// リクエスト内容 (XML データ)
$param = <<<EOD
<Req>
 <Target>
  <OrderId>＜注文ID＞</OrderId>
  <Field>OrderStatus,ShipStatus</Field>
 </Target>
 <SellerId>＜ストアアカウント＞</SellerId>
</Req>
EOD;

// API エンドポイント URL
$url = 'https://circus.shopping.yahooapis.jp/ShoppingWebService/V1/orderInfo';

// cURL セッションの初期化
$ch = curl_init();
curl_setopt($ch, CURLOPT_CUSTOMREQUEST, 'POST');
curl_setopt($ch, CURLOPT_HTTPHEADER, $requestHeaders);
curl_setopt($ch, CURLOPT_URL, $url);
curl_setopt($ch, CURLOPT_POST, true);
curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
curl_setopt($ch, CURLOPT_POSTFIELDS, $param);
curl_setopt($ch, CURLOPT_HEADER, true);

// API リクエストの実行　↓こちら実行後responseにエラー格納
$response = curl_exec($ch);

// cURL セッションのクローズ
curl_close($ch);

// API レスポンスの表示
echo $response;


### 試したこと
キーの開始文字を省く必要もあるかと思い、 認証情報の暗号化実行前に消してみましたがエラー変わらず。
        //開始・終了文字削除
        $publicKey           = str_replace([
            '-----BEGIN PUBLIC KEY-----',
            '-----END PUBLIC KEY-----',
            "\r\n",
            "\n",
            ], [
            '',
            '',
            "\n",
            ''
            ], $publicKey);


phpにてYahoo!ショッピング注文詳細APIにて公開鍵認証を利用するにあたりエラー原因不明

### 実現したいこと

ここに実現したいことを箇条書きで書いてください。
VBAでbeep音を連続して鳴らせるようにする。

### 発生している問題・エラーメッセージ
なぜか、コードの８個目以降のbeep音がならないです。
理由はわかりません。
#開発環境
・MS Office Home and Business Premiumです。
・Microsoft® Excel® 2016 MSO (バージョン 2304 ビルド 16.0.16327.20200) 64 ビット です。
・PCはhp Laptop model14s

### 該当のソースコード

```ここに言語名を入力
Option Explicit
#If Win64 Then
    Declare PtrSafe Function Beep Lib "kernel32" _
    (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
#Else
    Declare Function Beep Lib "kernel32" _
    (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
#End If
'-------------------------------------------------------------------------------------
Sub Main()
    Call Beep(440, 200) 'ラ
    Call Beep(440, 200) 'ラ
    Call Beep(440, 200) 'ラ
    Call Beep(392, 200) 'ソ
    Call Beep(440, 200) 'ラ
    Call Beep(392, 200) 'ソ
    Call Beep(440, 200) 'ラ
'これ以降のBeep音がなりません。。しかし、ブレークポイントに設定して途中で実行するとなります。
    Call Beep(523, 300)  'ド
    Call Beep(523, 300)  'ド
    Call Beep(440, 200) 'ラ
End Sub
```


VBA Beep音ならない現象

### 実現したいこと

- 入力規則をリストに設定したうえで、指定のセルに入力された値と同じ名前のリストをドロップダウンリストに設定したい。
※セル指定は、絶対参照ではなく相対参照として実現したい。

### 前提
例として、下記のようなリストにそれぞれ『主教科』『副教科』と名前が定義されているとします。
|主教科|副教科|
|:--|:-|
|英語|保健|
|国語|技術|
|社会|美術|
|理科|音楽|
|数学||

A1に主教科と入力された場合は、B1に主教科のリストを
A1に副教科と入力された場合は、B1に副教科のリストを
ドロップダウンリストで表示されるようにします。

|A列|B列|
|:--|:--|
|主教科 or 副教科|A1に記載された名前のリスト選択|

絶対参照を用いた通常の方法であれば、
B1の入力規則にリスト選択を指定したうえで、

"=INDIRECT(A1)"

と設定すれば実現ができます。

【成功例】
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-05-04/8638b9c2-9274-4bc7-9a6d-f2d92552eda4.png)

今回はこれを相対参照でセル設定したいと考えています。
具体的に言うと、B1に入力するのは、現在セルの左に位置するセルという記載にします。

### 試したこと
現在のセルから左セルを選択する方法は、ADDRESS関数を用いて実現できるのは承知しています。
"=INDIRECT(ADDRESS(ROW(),COLUMN()-1))"

ただ入力規則をリストにしたうえで、この式を入力するとエラー表示は出ないものの、
下記画像のように、定義された名前のリストが表示されずに、セルの値のみがプルダウンで表示されます。

【入力規則で設定している内容】
![入力規則画面](https://ddjkaamml8q8x.cloudfront.net/questions/2023-05-04/d2bedae4-1dd3-4457-a909-d0abeecb0e34.png)

【設定後で表示される内容】
![表示イメージ](https://ddjkaamml8q8x.cloudfront.net/questions/2023-05-04/77507740-80c5-4e0f-bf64-b4463a2d84f8.png)

### 実現したい理由
入力規則で絶対参照を用いると、セル毎で入力する式を変更する必要があります。
今回はどのセルであっても入力規則に記載する数式を統一したいと考えました。

上記が実現ができれば、数式に入力する内容は多少複雑になっても問題ありません。
※関数も必ずADDRESS関数を用いたものでなくてもOKです。

先輩エンジニアの皆さまから解決の糸口を拝借できれば幸いです。
ぜひご教示をお願いします。

### (追記)そのあと、調査したこと
ChatGPTを用いて答えにたどりつけないか確認しました。
![ChatGPTでの回答](https://ddjkaamml8q8x.cloudfront.net/questions/2023-05-04/0eef19f0-4dbc-4bd9-a25f-233884b454be.png)
どうやらこちらが指定したやり方では実現ができず、必ずセルを直接参照する記述をしなければならない旨が回答されています。

※もう数日程回答を待ってみて有効な回答がなさそうであれば、実現不可として質問を打ち切る予定です。

入力規則をリストに設定し、相対参照したセルの値によって、ドロップダウンリストを変動させたい



### 実現したいこと

Accessより、EXCELのフィルターを設定したい。


### 前提

Access VBAで、EXCELの操作をするツールを作成しています。
既に完成しているEXCELを開き、各種条件に合わせて絞り込むものを作成したいです。

EXCELを開くまでの操作は完成したのですが、EXCEL側のフィルターをうまく動作させることが出来ません。


### 試したこと

フィルターをかけるコードそのものが分かっていない状況です。

AccessよりEXCELのフィルターの操作は可能か？

## APIの定義について

APIの定義について質問があります。
内容は **「同じシステム内でデータを受け渡して処理するような機能もAPIと呼べるのか？」** です。

私は初学者で、APIがどういうものかググってみると「機能の一部を外部に向けて公開したもの」のように説明しているサイトが多くあります。しかし、私の居る現場では、外部向けに限らず同じシステム内でデータを受け渡して処理するような機能もAPIと呼んでいたりします。

例えば、フロントエンドからバックエンドに値をJSONで渡し、何らかの処理(計算とかグラフを作るとか)をして返す機能など。

よくAPIの例として出される twitterAPI などとはちょっと違うように思えるのですが、このような機能もAPIと呼んで間違いではないのでしょうか？

APIの定義について

### 実現したいこと
お世話になります。Excel2013を利用しているVBA初心者です。

シート内に挿入されている図形・画像の名称の変更をし、
すべて「画像」＋C列にある数字を３桁で表示させたい
（例）D1セルの図形なら『画像001』、D2セルの図形なら『画像002』としたい
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-02-08/c6272196-6b78-41e9-942d-7f5ea4064032.png)

### 前提
・画像は全て列Dにあり、ひとつのセルに１個が原則ですが、セル内に収まっておらずはみ出している可能性もある。
（もし可能であれば一つの行に画像が重複しる場合は、どこのセルで画像が重複しているなどの警告を出したい）
・登録番号に欠番はなくすべて連続しており、1000を超えることはない


エクセルVBAでの図形の名称変更

![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-02-05/df3ab46c-304a-4843-a811-8790e2412ed1.png)### 実現したいこと
VBAによりツイッターで他ユーザーの「ツイートと返信欄」の各やりとり一覧を取得したい
①chromeDriverによりツイッターのページを開く
②「ツイートと返信」から各やりとり一覧を取得
③やりとりの内容をセルへ吐き出す

### 前提
・ChromeDriverでVBAからツイッターへ繋げられています。
・twitter APIを使用しない。


現状②でやりとり一覧のリストを取得するのに何の関数であれば取得が可能かが知りたいです。
お手数ですが、よろしくお願いいたします。

### 該当のソースコード

```VBA
---------------------------------------
Sub tweet()

Dim Driver As New ChromeDriver


Dim PROFILE_PATH As String: PROFILE_PATH = "C:\Users\(ユーザ)\Desktop\twitter用\UserData" 'プロファイル
Driver.AddArgument ("user-data-dir=" & PROFILE_PATH)


Dim ky As New Keys

Driver.AddArgument ("user-data-dir=" & PROFILE_PATH)


'Driver.Get "https://twitter.com/("対象のID")/with_replies"
'画面をMAXに
Driver.Window.Maximize

'ツイートと返信のリストを取得したい
【②の内容】

Driver.Close
Set Driver = Nothing
   
End Sub
---------------------------------------
```

### 試したこと
FindElementsByIdより対象のタグを取得すれば一覧が取得できると思いましたが、出来なかった。



VBAでツイッターの「ツイートと返信」の一覧を取得したい※twitter API使用しない。

リモートワークとオフィスワーク
どちらが好きですか？
理由も教えて下さい

リモートワークとオフィスワーク

### 実現したいこと

お疲れ様です。
至急お尋ねしたいのですが、laravel9のphpunitを使用してCRUDのテストを行いたいのですが、下記のエラーが表示され、それ以降先に進めません。
テストの記述の仕方はこちらのサイトを参考にしています。https://tenrakatsuno.com/programing-note/laravel-crud-test/
バリデーションがおかしいのかと思い見直したり、requestの中に新しいファイルを作り記載もしてみましたが解決しません（こちらのサイトを参考にしました。https://zenn.dev/yumemi_inc/articles/4f1940b78206c3

2時間ほど悩んでも解決しないため、わかる方がいれば教えていただきたいです。



### 前提


laravel9のphpunitを使用し、CRUDの機能テストを行いたいが、こちらのエラーが表示され進まない。
```phpunit 該当コード
    public function test_userChange()
    {
        $user = User::factory()->create();

        $response = $this->actingAs($user)->get('change/{$user->id}/edit');

        $response->assertOk();

        $itemdata = [
            'changename' => '編集成功',
            'changeemail' => 'testtest.test@test',
            'changeimg' => 'images/20200501_noimage.jpg',
        ];

        $update_url = route('change.update', $user->id);

        $response = $this->PATCH($update_url, $itemdata);

        $response->assertSessionHasNoErrors();

        $response->assertStatus(302);

        $response->assertRedirect(route('list.index')); 

        $this->assertDatabaseHas('users', ['name' => '編集成功']);
    }

   public function test_message()
    {
   // 認証ユーザーにして、作成ページに行ける事
    $user = User::factory()->create();
    $response = $this->actingAs($user)->get(route('message.create'));
    $response->assertStatus(200);
    $response->assertViewIs('post');

    $posttext = [
        'message' => 'テスト'
    ];

    // $url = route('message.store');
    $response = $this->post(route('message.store', $posttext));

    $response->assertSessionHasNoErrors();

    $response->assertStatus(302); // リダイレクト

//     $response->assertRedirect('/'); 

//    // 保存したitemがデータベースに存在するか確認。
    $this->assertDatabaseHas('Messages', ['message' => 'テスト']);

    $response = $this->get(route('list.index'));
    
    $response->assertStatus(200);

    $response->assertSeeText('一覧');

   // 一覧ページに移動
    $response = $this->get(route('list.index'));

    $response->assertStatus(200);

    $response->assertViewIs('list.index');

   // 先ほど投稿したitemのtitleと一致するものが表示されているか
    $response->assertSeeText($massage['テスト']);

    }
```

### 発生している問題・エラーメッセージ

```
There were 2 failures:

1) Tests\Feature\userTest::test_userChange
Session has unexpected errors: 

{
    "default": [
        "validation.file",
        "validation.image",
        "validation.mimes"
    ]
}
Failed asserting that true is false.

The following errors occurred during the last request:

validation.file
validation.image
validation.mimes

/Applications/MAMP/htdocs/名前リ/vendor/laravel/framework/src/Illuminate/Testing/TestResponse.php:1389
/Applications/MAMP/htdocs/名前/tests/Feature/userTest.php:146

2) Tests\Feature\userTest::test_message
Session has unexpected errors: 

{
    "default": [
        "validation.required"
    ]
}
Failed asserting that true is false.

/Applications/MAMP/htdocs/名前/vendor/laravel/framework/src/Illuminate/Testing/TestResponse.php:1389
/Applications/MAMP/htdocs/名前/tests/Feature/userTest.php:201

FAILURES!
Tests: 22, Assertions: 35, Failures: 2.
```

### 該当のソースコード

```ここに言語名を入力
ソースコード
```

### 試したこと

サイトで「laravel9 テスト　バリデーションエラー」などと検索し、コードを探したが解決していない。

### 補足情報（FW/ツールのバージョンなど）

初心者のため、何かあればおっしゃってください


至急！テストのエラーが解決しない！！

シートにテーブルAがあり、フィルターが複数かかっています。
上図がフィルターをかける前、下図が３つフィルターをかけた状態です。
下図の状態から、フィルターを全て解除して上図の状態に戻すのを
一括で行う方法は無いでしょうか。
今は一列づつフィルターを解除しています。
よろしくお願いします。
```VBA
    Dim i As Long
    For i = 1 To Worksheets("フィルター").ListObjects("テーブルA").ListColumns.Count
        Worksheets("フィルター").ListObjects("テーブルA").Range.AutoFilter Field:=i
    Next
```

![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-02-02/5a860a50-71ed-47ed-b9ca-3522c91bdae1.jpeg)


![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-02-02/d9e78ab2-a305-4f0d-8d4e-7a0153e2e38b.jpeg)

---
ご回答を受け下記プログラムで解決
```GAS
' オートフィルターの絞り込みを解除する(1)または(2)

' (1)適用先をテーブル名を含めて指定
If Worksheets("フィルター").ListObjects("テーブルA").AutoFilter.FilterMode Then
    Worksheets("フィルター").ListObjects("テーブルA").AutoFilter.ShowAllData
End If
    
' (2)テーブル内のセルを選択してから解除
Worksheets("フィルター").ListObjects("テーブルA").Range.Cells(1).Select
If Worksheets("フィルター").FilterMode Then Worksheets("フィルター").ShowAllData
```
（参考）https://papasensei365.com/excel-filtermode-showalldata/

テーブルで複数フィルターをかけているものを一括で解除したい

### 前提

VBA初心者の教師です。
【目標】
Wordで作成した学習プリント（解答部分は赤字で入力済み）のファイルを、欠席した生徒や反転学習したい生徒のために、.pdf形式で解答例(赤字)入りのプリントと、配布用の解答例の赤字を白字に置換したプリントの二つそれぞれで保存し、Webにアップロードしたいと思っています。
　（白字にしたpdfファイルでもテキストコピーで答えがわかってしまうのは気にしないこととしています。）
【現在の状況】
同じフォルダ内に、マクロ実行用の.docmファイルと、大量にある学習プリントの.docxファイルが入っています。
全てのマクロは標準モジュール内に記載。

### 実現したいこと

.docmファイルに記載してあるマクロ「ConvertWordToPDFW」を実行し、同じフォルダ内のすべての.docxファイルに以下の処理を行う。

1.ファイルを非表示状態で開く
2.赤字を白字に置換するマクロ「R⇒W」を呼び出して実行（本文とテキストボックス内の両方を対象としている。）
3.実行後の内容を上書き保存後.pdf形式で別形式同名保存

### 発生している問題・エラーメッセージ
【うまくいったこと】
　・フォルダ内にあるすべての.docxファイルが.pdf形式で保存できている
　・②の内容（「R⇒W」マクロ）単体で実施した時は、想定通り本文とテキストボックスの赤字が白字に置換されている。
　・エラーメッセージは出ていない。
【できていないこと】
　・実行後の.docxファイルと.pdfファイルともに②のマクロの内容が反映されていない。


### 該当のソースコード

```VBA
Sub ConvertWordToPDFW()
    Dim objDoc As Document
    Dim strFile As String
    Dim strPath As String
    
    strPath = ActiveDocument.Path & "\" '現在開いているドキュメントのパス
    strFile = Dir(strPath & "*.docx") '拡張子が.docxのファイルを取得
    
    Do While strFile <> ""
        
        Set objDoc = Documents.Open(FileName:=strPath & strFile, Visible:=False) 'ファイルを開く
        Call R⇒W '別マクロを実行
        objDoc.Save
        objDoc.SaveAs FileName:=Left(objDoc.FullName, InStrRev(objDoc.FullName, ".") - 1) & ".pdf", FileFormat:=wdFormatPDF ' pdf形式で保存
        objDoc.Close 'ファイルを閉じる
        strFile = Dir() '次のファイルを取得

    Loop
    
    MsgBox "処理を終了しました。"
       
End Sub

```
呼び出している「R⇒W」のコード
```VBA
Sub R⇒W()
'
' R⇒W Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Font.Color = wdColorRed
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.Color = -603914241
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
        .MatchFuzzy = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
     
    'Shapeオブジェクトに対しても置換実行
    Dim i As Integer
    For i = 1 To ActiveDocument.Shapes.Count
 
        ActiveDocument.Shapes(i).Select
    
    Selection.Find.ClearFormatting
    Selection.Find.Font.Color = wdColorRed
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.Color = -603914241
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
        .MatchFuzzy = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Next i
    
End Sub

```



[VBA]別マクロを呼び出した結果を別形式で保存することができない

### 前提

ACCESSの　テーブル　の　フィールド1とフィールド2　の全レコード値をHTTP送信したいと考えております。
他の方のサンプルを見て考えてみたのですが、JSONオブジェクトとして送信するにはどの様にすればよいのかご教示いただければと思います。
-----
Public Function test()

Dim db As dao.Database
Dim rs As dao.Recordset

Dim url
    url = "https://webapi/api"

Dim JsonObject As Object
  Set db = CurrentDb()
  Set rs = db.OpenRecordset("テーブル", dbOpenDynaset)
  
  Set JsonObject = New Dictionary
  Do Until rs.EOF
    JsonObject.Add "product", "～～"
    JsonObject.Add "contract", "～～"
  rs.MoveNext
  Loop
  
Dim apikey As String
Dim apitoken As String
    apikey = "***"
    apitoken = "*******"

Dim objhttp As Object
    Set objhttp = CreateObject("MSXML2.XMLHTTP")
  With objhttp
    .Open "POST", url, False
    .setRequestHeader "Content-Type", "application/json; charset=UTF-8"
    '.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    .setRequestHeader "Authorization", "Bearer " & apitoken
    .setRequestHeader "x-api-key", apikey
    .send JsonConverter.ConvertToJson(JsonObject)
      Debug.Print
  End With
  
  rs.Close: Set rs = Nothing
  db.Close: Set db = Nothing

End Function


ACCESS VBAでHTTP送信したい

### 前提

バイトをしていてもっと効率化できると思い、独学でVB.netを初めてのプログラミング言語として学び始めたものです。
Excelに画像を貼り付けるという作業があり、それを自動化するソフトを開発しましたがExcelのプロセスが終了しないです。

### 実現したいこと
処理完了と同時にプロセスも同時に終了できるようにしたいです。
### 発生している問題・エラーメッセージ
処理をするごとにExcelを起動してしまうので、たくさん処理をした際に多重起動で重くなってしまう

### 該当のソースコード

```VB.Net
Private Sub testing_button2_Click(sender As Object, e As EventArgs) Handles testing_button2.Click

        Dim strCurrentDir As String = System.IO.Directory.GetCurrentDirectory()
        Dim template As String = strCurrentDir + "\" + "template.xls"
        Dim xlApp As New Excel.Application

        Dim fbd As New FolderBrowserDialog

        'Adding header description
        fbd.Description = "エクセルファイルの保存先を指定してください。"
        'Allow users to create new folders
        'True as default
        fbd.ShowNewFolderButton = True

        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = folder_lists.CheckedItems.Count
        ProgressBar1.Value = 0

        If fbd.ShowDialog(Me) = DialogResult.OK Then  'show save distination setting dialog
            For Each item_fld As ListViewItem In folder_lists.CheckedItems
                Dim imagePath As String = item_fld.SubItems(1).Text
                Dim extensions As String() = {"*.jpg", "*.png", "*.bmp"}
                Dim files As New List(Of String)
                ProgressBar1.Value = ProgressBar1.Value + 1

                For Each extension As String In extensions  'counting multiple extension files
                    files.AddRange(Directory.GetFiles(imagePath, extension))
                Next

                Dim filesCount As Integer = files.Count 'amount of image files


                Dim xlWorkbook As Excel.Workbook = xlApp.Workbooks.Open(template)
                Dim xlWorksheet As Excel.Worksheet = xlWorkbook.Sheets(1)

                Dim rng As Long = 1

                For Each file As String In files    'insert pictures to the excel book
                    Debug.WriteLine(file)
                    xlWorksheet.Shapes.AddPicture(file, MsoTriState.msoTrue, MsoTriState.msoTrue, xlWorksheet.Range("B" & rng).Left, xlWorksheet.Range("B" & rng).Top, 355, 252)
                    rng = rng + 12
                Next

                For Each shape As Excel.Shape In xlWorksheet.Shapes 'move down all images because of print bug
                    shape.Top = shape.Top + 3
                Next
                xlWorkbook.SaveAs(fbd.SelectedPath & "\" & item_fld.Text & ".xls")
                xlWorkbook.Close()

                xlApp.Quit()
            Next

        End If
        System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)
        ProgressBar1.Value = 0

    End Sub
```

### 試したこと
オブジェクトの開放

### 補足情報（FW/ツールのバージョンなど）
