・「教えて」「助けて」で始まる質問者の頭が悪いことが容易にわかる質問 ・自分で考えるともせず全部作ってもらおうとする厚かましい質問 ・VBA、マクロに関係ないExcelの質問 ・自分のために利用するだけ利用してやろうと、後出しで条件を付け加える人 0005デフォルトの名無しさん (アウアウエー Sa0a-ifKp)2020/08/30(日) 20:36:42.00ID:Cc0wen40a Testフォルダの中に複数のテキストファイルがあり、それぞれのテキストファイルの中身を1つのエクセルシートに取り込みたいのですが、うまくいきません。 test()をfunc()の中で使えないか考えています。 Sub fun() Dim fso, file, files Dim folderPath As String: folderPath = "G:\Test\" Set fso = CreateObject("Scripting.FileSystemObject") Set files = fso.GetFolder(folderPath).files
For Each file In files Dim wb As Workbook 'Set wb = Workbooks.Open(file)
Dim ts As Object Set ts = fso.OpenTextFile(file, ForReading)
'Call wb.Close(SaveChanges:=False)
Next file End Sub 0006デフォルトの名無しさん (アウアウエー Sa0a-ifKp)2020/08/30(日) 20:37:09.10ID:Cc0wen40a Sub test() Dim folderPath As String: folderPath = "G:\Test\" Dim textLine, fileName As String Dim fileToOpen As Integer Dim i As Integer fileName = folderPath & "01.txt" fileToOpen = FreeFile()
Open fileName For Input As fileToOpen
i = 1
While Not EOF(fileToOpen) Line Input #fileToOpen, textLine Cells(1, i).Value = textLine i = i + 1 Wend End Sub 0007デフォルトの名無しさん (アウアウエー Sa0a-ifKp)2020/08/30(日) 21:02:31.41ID:Cc0wen40a すみません。何とか事故解決しました。 もしこう書けばより良いとアドバイス頂けたら幸いです。 Sub fun() Dim fso, file, files Dim folderPath As String: folderPath = "G:\Test\" Set fso = CreateObject("Scripting.FileSystemObject") Set files = fso.GetFolder(folderPath).files
Dim j As Integer
For Each file In files Dim wb As Workbook 'Set wb = Workbooks.Open(file)
Dim ts As Object Set ts = fso.OpenTextFile(file) Dim i As Integer: i = 1 j = j + 1 Do Until ts.AtEndOfStream Cells(j, i).Value = ts.ReadLine i = i + 1 Loop ts.Close 'Call wb.Close(SaveChanges:=False) Next file End Sub 0008デフォルトの名無しさん (ワッチョイ 29e5-pBCo)2020/08/30(日) 22:17:56.28ID:dZGkK/a70 入門レベルで横槍入れるようで申し訳ないのですが forループ以前とループ内でのDim〜は何が違いますか? 0009デフォルトの名無しさん (ワッチョイ a5ce-xiBb)2020/08/30(日) 23:52:40.61ID:RQLT4uuu0>>8 違いは見やすさだけ 機能はどこに書いても同じ マイクロソフトは最初にまとめて書けと言ってる 0010デフォルトの名無しさん (ワッチョイ a5ce-xiBb)2020/08/30(日) 23:59:24.87ID:RQLT4uuu0>>7 宣言と初期化を一度に書きたくなる気持ちはわかるけど、マルチステートメントはやめた方がいい 0011デフォルトの名無しさん (ドコグロ MMca-ftwo)2020/08/31(月) 00:06:45.91ID:SE//WJVaM 誰に言われるまでもなく上に全部まとめて宣言しているわ 違うプロシージャにそのままコピペで流用して使わないのは消すだけ 0012デフォルトの名無しさん (ワッチョイ c13d-7m6G)2020/08/31(月) 00:13:33.38ID:TQg4kwht0>>7 Cellsの前にはワークシート名書いといた方が絶対にいいよ CodeNameでいいから前に書いときな 0013デフォルトの名無しさん (ワッチョイ 45cc-pyQU)2020/08/31(月) 19:07:17.70ID:Lt7FggAF0 B列に"2020/8/1"のように日付が入っていて B列に"発行日"&和暦を入力したいのですが、年・月・日がそれぞれ1桁の場合は頭に0が入ってしまします。 1桁の場合は、0の代わりに半角スペースにしたいのですがどう書けばいいですか
Dim r As Long
For r = 1 To Cells(Rows.Count,1).End(xlUp).Row Cells(r,2).Value = Format(CDate(Cells(r,1)), "ggge年m月d日") Next r 0014デフォルトの名無しさん (アウアウウー Sa85-7m6G)2020/08/31(月) 19:10:36.33ID:ZuoShitIa>>13 Month関数使えば判定できるとか 0015デフォルトの名無しさん (アウアウエー Sa0a-ifKp)2020/08/31(月) 19:11:34.92ID:0S1gXD8ua>>10 >>12 助言ありがとうございます。 0016デフォルトの名無しさん (ワッチョイ a5ce-xiBb)2020/08/31(月) 20:25:23.41ID:Zj98ZIJ+0>>13 For r = 1 To Cells(Rows.Count, 1).End(xlUp).Row Cells(r, 2).Value = Replace(Replace(Format(CDate(Cells(r, 1)), "ggge年mm月dd日"), "年0", "年 "), "月0", "月 ") Next r 0017デフォルトの名無しさん (ワッチョイ 45cc-pyQU)2020/08/31(月) 21:02:20.59ID:Lt7FggAF0>>16 ありがとうございます 0018デフォルトの名無しさん (ラクッペペ MM66-i8JQ)2020/09/01(火) 16:02:43.57ID:IEy7mEwuM vba実行時 実行時エラー2147467259(80004005)エラーを特定できません が出ます。 半月前は出ませんでした。 どうすれば良いでしょうか。
具体的に申しますと pdfをテキストにコンバートする関数に 入った直後に出ます。 Dim objAcroApp As New Acrobat.AcroApp Dim id As Long id=objAcroApp.Show←ここで出ます
こんな感じに開いてたら閉じる。違うファイルなら閉じて新たに開くってどうしたら いいですか? 0033デフォルトの名無しさん (スフッ Sd7f-7sgX)2020/09/02(水) 21:08:43.99ID:0x5o6h4cd>>32 その処理のどの部分で躓いてんの? 0034デフォルトの名無しさん (ドコグロ MM1f-th+2)2020/09/02(水) 21:43:27.34ID:M5ACMng3M>>30 If Worksheets(シート名).Shapes("Image" & カード番号).Visible = False Then 0035デフォルトの名無しさん (スフッ Sd7f-7sgX)2020/09/02(水) 22:11:52.19ID:0x5o6h4cd>>34 それだと非表示にしたカートまで表示される 0036デフォルトの名無しさん (アウアウカー Sa9b-vRCQ)2020/09/02(水) 22:44:34.28ID:7eaUdZ9ha>>30 表裏の切り替えできてるなら裏かつvisibleだけ処理すりゃいいと思う 0037デフォルトの名無しさん (ドコグロ MM1f-aCGe)2020/09/02(水) 23:26:58.04ID:CEKOaVwIM>>35 じゃあ、trueに変えればいいじゃん 0038デフォルトの名無しさん (ワッチョイ 7f63-3NJ+)2020/09/02(水) 23:43:34.57ID:4SR2iB8C0>>22 sはこれでエラーが出ませんでしたが これでテストになっているのか疑問です。。(acrobatを操作しているように見えない Sub ConvertFile() Dim objAcroApp Dim objAcroAVDoc Dim objAcroPDDoc Dim id Dim js Dim SaveName id = objAcroApp.Show id = objAcroAVDoc.Open("PDFへのパス", "")