20/08/29 10:55:28 jdj2nRjtM.net
>>980
何かの文書ならともかく、ExcelのPDF化で1万ページは非現実的だよね
自分の会社で使うだけならDB化するのが普通だし
役所に提出する測定資料とかかな？
989:デフォルトの名無しさん
20/08/29 11:18:02.61 ebvcDddx0.net
ある言語だと
"00-001-02"split("-")map(asNumber)join("-")println
990:デフォルトの名無しさん
20/08/29 11:19:35.12 0Ji7S1+0a.net
>>977
for
処理
Next
にしてるってこと？
ならPDFをNextの後に書けば良いんだけど
991:976 (ﾜｯﾁｮｲ 45cc-pyQU)
20/08/29 13:57:00 pUlaC/XX0.net
>>979
１シートにはまとめられません。
>>980
日々の取引をデータベースに入力していて、そのデータベースから出力されたデータを取引伝票としてＰＤＦ化したいのですが
データベースソフトに取引伝票の書式が設定されていないので、エクセルで作ろうと思います。
１ページごと出力してフリーソフトで結合すると、１２時間くらいかかっていたので、エクセルのＰＤＦ結合だとＡｃｒｏｂａｔＰｒｏ
が必要になるそうなので、この方法もできません。
>>985
シート上に帳票を作り、その帳票をページごとに書き換えています。試していませんが、１シートだと行数が足りないです。
それと、ページごとに罫線とかの書式を作るのはつらいです。
992:デフォルトの名無しさん
20/08/29 14:17:55.39 dZuEnb/K0.net
>>986
12時間かけて作った12000ページのPDFは実用に耐えてるの？
それ、手段の一つが目的になっちゃってない？
993:デフォルトの名無しさん
20/08/29 14:32:50.04 D+h94FkM0.net
>>986
よくわからないけど、何とかデータをエクセルの表にして、ワードの差し込み印刷でやる、とかはどう？
994:デフォルトの名無しさん
20/08/29 14:38:51.56 fy0wFynXa.net
PDF1ファイルにする理由はあるの？
120ファイルぐらいに分けるでしょ普通
995:デフォルトの名無しさん
20/08/29 14:42:09.88 1Tm3n33G0.net
伝票とかだと保存義務とかあったりして、出力しておいておかないとダメな時もある
１シートで収まらないならある程度で分割してやるしかないし
罫線とか決まったフォーマットならコピーするだけ
が、EXCELでやるのが間違ってるな
ちゃんとした帳票ツール買って対応する言語使えよ
996:デフォルトの名無しさん (ﾜｯﾁｮｲ 4d63-gth/)
20/08/29 16:14:59 EjHgD7140.net
PDF化って言われても実コマンド書かなきゃアドバイスのしようもないわな
997:デフォルトの名無しさん
20/08/29 19:10:04.48 91aO+zvA0.net
シートにまとめられない理由は？
まとめないとして、12000シート作れるスペックはあるのか？
998:デフォルトの名無しさん (ﾜｯﾁｮｲ 06c9-1etN)
20/08/29 22:40:12 LkUYL8wZ0.net
>>962
これ、マジで困るわ・・・
999:デフォルトの名無しさん (ﾜｯﾁｮｲ 6e63-mUq2)
20/08/29 23:53:21 wkbqrDC+0.net
サポート終了なんだからいつまでもIE使ってんじゃねえよ
1000:デフォルトの名無しさん (ﾃﾃﾝﾃﾝﾃﾝ MM66-nUCc)
20/08/30 00:09:48 HNjVBgM5M.net
>>986
Accessでやって下さい
1001:デフォルトの名無しさん
20/08/30 07:04:48.97 ZpZWI99c0.net
IE制御で作る
てどういう意味です？
1002:デフォルトの名無しさん
20/08/30 08:58:33.06 IZ41nY3ca.net
テキストファイルを読み込もうとしているのですが、ファイルがないとエラーが出ます。なにが原因でしょうか？
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
1003:デフォルトの名無しさん
20/08/30 09:03:16.96 YG+IT5u+0.net
Open "C:\Sample\Data.txt" For Input As #1
Line Input #1, buf
Close #1
1004:デフォルトの名無しさん
20/08/30 09:03:41.78 yRrMkFD60.net
フォルダーパスの最後に/足してみては？
1005:デフォルトの名無しさん
20/08/30 09:05:06.49 YG+IT5u+0.net
フォルダとファイルの間に/がないとか
1006:デフォルトの名無しさん (ｱｳｱｳｴｰ Sa0a-ifKp)
20/08/30 09:13:38 IZ41nY3ca.net
フォルダパスに"\"が入っていませんでした。
ありがとうございます！
1007:1001
Over 1000 Thread .net
このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 65日 7時間 12分 10秒
1008:過去ログ ★
[過去ログ]
■ このスレッドは過去ログ倉庫に格納されています