Excel VBA 質問スレ Part67

2020/06/26(金) 02:01:29.56

!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付ける

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

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

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

2020/08/29(土) 14:42:09.88

伝票とかだと保存義務とかあったりして、出力しておいておかないとダメな時もある

１シートで収まらないならある程度で分割してやるしかないし
罫線とか決まったフォーマットならコピーするだけ

が、EXCELでやるのが間違ってるな
ちゃんとした帳票ツール買って対応する言語使えよ

2020/08/29(土) 16:14:59.78

PDF化って言われても実コマンド書かなきゃアドバイスのしようもないわな

2020/08/29(土) 19:10:04.48

シートにまとめられない理由は？
まとめないとして、12000シート作れるスペックはあるのか？

2020/08/29(土) 22:40:12.57

>>961
これ、マジで困るわ・・・

2020/08/29(土) 23:53:21.40

サポート終了なんだからいつまでもIE使ってんじゃねえよ

2020/08/30(日) 00:09:48.26

>>985
Accessでやって下さい

2020/08/30(日) 07:04:48.97

IE制御で作る
てどういう意味です？

2020/08/30(日) 08:58:33.06

テキストファイルを読み込もうとしているのですが、ファイルがないとエラーが出ます。なにが原因でしょうか？
Sub func()
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(i, "A").Value = textLine
i = i + 1
Wend
End Sub

2020/08/30(日) 09:03:16.96

Open "C:\Sample\Data.txt" For Input As #1
Line Input #1, buf
Close #1

2020/08/30(日) 09:03:41.78

フォルダーパスの最後に/足してみては？

2020/08/30(日) 09:05:06.49

フォルダとファイルの間に/がないとか

2020/08/30(日) 09:13:38.94

フォルダパスに"\"が入っていませんでした。
ありがとうございます！

**1001** · Over 1000

このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 65日 7時間 12分 10秒