316(1): デフォルトの名無しさん [sage] 2025/07/01(火) 12:47:55.21 ID:cyOlFSbV(1) AAS
インスパイアされて作ってみた
関西のコミュニケーションの多様性にはリスペクトしか無い
外部ﾘﾝｸ:89.gigafile.nu
ネィティブでは無いので誤りが有ったら指摘もらえば改良もやぶさかではない
Captionだけじゃ物足りないので喋らせてみたが、これが結構ドツボ
ExcelでのSpeakは、まだまだ途上らしい

357(4): デフォルトの名無しさん [sage] 2025/07/05(土) 06:16:26.93 ID:+cv+JpUz(1/3) AAS
>>356
例えばCSVファイルを開くときのテストケースを教えてってAI聞いてみたけど答えてくれたよ。

VBAでCSVファイルを開く処理に対して、以下のようなテストケースを行うと、動作の信頼性やエラー対策が強化できます。

主なテストケース一覧
・CSVファイルが存在し開ける 正常にファイルを開けることを確認
・ファイルが存在しない場合 指定されたCSVが見つからない場合の対処
・既に開かれているブックかどうかを確認
・読み取り専用のCSVを開けるかどうか のテスト
・空のCSVファイル 内容が空でもエラーにならないか確認
・文字コードに関わるデータが正しく読めるかのテスト
・CSVの列数・行数が極端に多い たくさんのデータがあるときの パフォーマンスの確認
・ダブルクォートやカンマを含むセル "東京,品川"のようなセルが正しく扱われるか セル確認
・ファイルロックされている場合のエラー回避の確認

433(2): デフォルトの名無しさん [sage] 2025/07/18(金) 20:55:57.57 ID:kfpMJi4P(3/3) AAS
わかんなきゃいいよw　カリカリすんなよ
フォルダ名を取得する記事見付けた　検索文字で絞る事もできる　*とか?とかも要らん
外部ﾘﾝｸ[html]:tmkr7788.livedoor.blog
で、一番上のフォルダ指定するのが手入力っぽいから、それも自動取得するなら

Sub Sample()
Dim FPath As String
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = "C:\ほにゃらら"
.Title = "フォルダを選択してください"
If .Show = -1 Then
FPath = .SelectedItems(1)
End If
End With
Cells(3,3) = FPath
End Sub

これを別ボタンに貼り付ければ、ディレクトリ探すのもマウスオペだけで済む　お好みだけど
　※　ほにゃらら部分は、デフォルトで指定しときたいフォルダ名に