Access VBA 質問スレ Part2 (788ﾚｽ)
Access VBA 質問スレ Part2 http://mevius.5ch.net/test/read.cgi/tech/1544620479/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
527: デフォルトの名無しさん [] 2022/06/22(水) 20:19:24.91 ID:rLKMJdnt 質問には答えられるけど 答えるとまた次の質問が来るのが予測出来るからまんどくせ http://mevius.5ch.net/test/read.cgi/tech/1544620479/527
528: デフォルトの名無しさん [sage] 2022/06/23(木) 06:46:56.49 ID:nErcbU9U >>527 スレに来ないと良いよ http://mevius.5ch.net/test/read.cgi/tech/1544620479/528
529: デフォルトの名無しさん [sage] 2022/06/23(木) 07:36:49.86 ID:xe+L83Np >>521-523 なにをやりないか再度確認してコード見直していたら不具合点見つかって前進しました… >>525 やりたいのはこれで30個程度のエクセルがあって全てフォームは統一されています a3とb4とw30の値をテーブルにズドンと引っ張りたいのです もうちょっと頑張ってみます 遅くなってごめんなさい http://mevius.5ch.net/test/read.cgi/tech/1544620479/529
530: デフォルトの名無しさん [sage] 2022/06/23(木) 12:13:27.06 ID:jwJvRDT9 ACCESS VBA EXCEL CELLでクグルと沢山出て来ますね。 ACCESSからEXCEL開いて操作できると便利です、頑張ってください。 http://mevius.5ch.net/test/read.cgi/tech/1544620479/530
531: デフォルトの名無しさん [sage] 2022/06/23(木) 12:56:15.59 ID:uoofWh9e >>529 CreateObject("Excel.Application")でエクセルを操作できるようにする 対象とするシートからa3とb4とw30の値を取得して変数 X Y Z に格納する 変数 X Y Z の値をAccess のテーブルに追加する この二つの処理を全てのシートにループで行う 釣りが終わったExcel オブジェクトを閉じる Access のオブジェクトの閉じる これでいけるんじゃね？ http://mevius.5ch.net/test/read.cgi/tech/1544620479/531
532: デフォルトの名無しさん [sage] 2022/06/24(金) 06:07:38.19 ID:X+tgL9yK >>531-532 ありがとうございます こう書くとすごくわかりやすいですね テーブル追加やLOOPは調べて書き方を学べそうなのでやってみます！ http://mevius.5ch.net/test/read.cgi/tech/1544620479/532
533: デフォルトの名無しさん [] 2022/06/26(日) 13:37:45.11 ID:DTfGvOZF https://www.youtube.com/watch?v=jppnWu6am3Q http://mevius.5ch.net/test/read.cgi/tech/1544620479/533
534: デフォルトの名無しさん [sage] 2022/06/26(日) 22:59:47.94 ID:Ter0iV/V たびたびすみません ばしっとフォルダ内のファイル名を取得することはできました ＞CreateObject("Excel.Application")でエクセルを操作できるようにする これの意味がようやくわかりました ありがとうございます C:\Users\sanae\Desktop\vba\Book1.xlsx というExcelファイルのa3を変数に入れようとしているのですが ぐぐったところファイルパスをつける書きかたが参考にできるページがみあたらず詰まっています (このあたりにファイルパスとかシートとかを
指定して)range(3.1) みたいなやり方かなあなんて思っているのですがどれもエラーになっちゃいました 参考になるページでもご教示いただければ幸いでございます http://mevius.5ch.net/test/read.cgi/tech/1544620479/534
535: デフォルトの名無しさん [sage] 2022/06/27(月) 00:21:56.25 ID:LR8Jvthl >>534 http://officetanaka.net/excel/vba/file/file01.htm を参考にしてください。 Sub Sample1 set mybook=myexel.Workbooks.Open "C:\Users\sanae\Desktop\vba\Book1.xlsx" x=mybook.worksheets(1).range("A 3") X の値をテーブルに書き込む End Sub myexelはクリエイトオブジェクトで作ったエクセルオブジェクトね あと変数は適当に定義しておいてね。 http://mevius.5ch.net/test/read.cgi/tech/1544620479/535
536: デフォルトの名無しさん [] 2022/06/27(月) 01:42:38.20 ID:Yed1CrTu >>535 おおお できてきました とても進みました ・フォルダを指定してファイル名を取得 ・変数XYZに特定のセルの値を取得 ・ http://mevius.5ch.net/test/read.cgi/tech/1544620479/536
537: デフォルトの名無しさん [sage] 2022/06/27(月) 01:45:22.88 ID:Yed1CrTu すみませんＣＴＲＬ＋エンターで送信になってしまいました ・フォルダを指定してファイル名を取得 ・指定したシートから変数XYZに特定のセルの値を取得 ・XYZの値をテーブルに追加 超進みました 後は指定したシート名を持たないファイルに遭遇した時にどんなエラーになるのかが気になりますので 近々時間みつけて頑張ろうと思います ありがとうございました！超ハッピー！ http://mevius.5ch.net/test/read.cgi/tech/1544620479/537
538: デフォルトの名無しさん [] 2022/06/27(月) 01:59:55.53 ID:YAQt7RYR 馬鹿は二度と来るなよ http://mevius.5ch.net/test/read.cgi/tech/1544620479/538
539: デフォルトの名無しさん [sage] 2022/06/27(月) 08:41:44.29 ID:yeeW9wqV VBAでやらなくてもテーブルimportで出来るやろ 無駄な努力だな http://mevius.5ch.net/test/read.cgi/tech/1544620479/539
540: デフォルトの名無しさん [sage] 2022/06/27(月) 11:56:31.55 ID:LR8Jvthl >>539 ブック数が多いから VBA でやりたいんじゃないの？ インポートでできる量だったら手でコピペの方が早いだろ http://mevius.5ch.net/test/read.cgi/tech/1544620479/540
541: デフォルトの名無しさん [sage] 2022/06/27(月) 15:59:24.18 ID:jKYPD+Yx 対象のExcelファイルが固定なのか、頻繁に入れ替わるかどうかにもよるわな http://mevius.5ch.net/test/read.cgi/tech/1544620479/541
542: デフォルトの名無しさん [] 2022/06/27(月) 20:22:09.19 ID:UdQiWAN3 どなたか教えてください。 売掛金消し込みのマクロを作成しています。VBAでソルバーを自動化したいと思っています。 目的セル、制約条件の参照セルの開始行が40行ごとに下がっていき、指定値は数値ではなく、セルを指定したいです。 とりあえず、全部の変数をvariant型にしてますが、なかなか上手くいきません。 http://mevius.5ch.net/test/read.cgi/tech/1544620479/542
543: デフォルトの名無しさん [sage] 2022/06/27(月) 20:42:56.65 ID:NFVjaUBh なんでAccessVBAスレにまで書いてるんだよ http://mevius.5ch.net/test/read.cgi/tech/1544620479/543
544: デフォルトの名無しさん [] 2022/06/28(火) 12:01:23.56 ID:W8L8uteA こんな奴が作るプログラムで金勘定とか笑えるわ 己を知らないって馬鹿の特徴なんだよな http://mevius.5ch.net/test/read.cgi/tech/1544620479/544
545: デフォルトの名無しさん [sage] 2022/06/28(火) 12:08:16.40 ID:S7aFTH1N >>542 Access VBAスレでExcelの質問するなよ http://mevius.5ch.net/test/read.cgi/tech/1544620479/545
546: デフォルトの名無しさん [sage] 2022/06/28(火) 12:53:23.92 ID:illrnTHm EXCELで記録したVBAをACCESSで実行するとEXCELはXlmxにしなくても良いからじゃないの? ソルバーは使い方わからんのでなんにも言えなくてスマン。 http://mevius.5ch.net/test/read.cgi/tech/1544620479/546
547: デフォルトの名無しさん [sage] 2022/06/28(火) 13:14:48.17 ID:v0i+TmEN >>546 Excel VBAスレみればなにがあったのか分かるよ http://mevius.5ch.net/test/read.cgi/tech/1544620479/547
548: デフォルトの名無しさん [] 2022/06/28(火) 21:08:59.28 ID:i28fB/zi 昨日アホな質問した541です。 accessスレにexcel VBAについて投稿してしまい、すみませんでした。 VBA初心者なので、よくわからずに投稿してしまいました。 http://mevius.5ch.net/test/read.cgi/tech/1544620479/548
549: デフォルトの名無しさん [] 2022/06/29(水) 10:01:41.27 ID:Es0nfTu8 初心者を言い訳にする香具師は同じ失敗を繰り返す http://mevius.5ch.net/test/read.cgi/tech/1544620479/549
550: デフォルトの名無しさん [sage] 2022/06/29(水) 12:18:55.14 ID:C7zOwXa/ 狭量にすぎる http://mevius.5ch.net/test/read.cgi/tech/1544620479/550
551: デフォルトの名無しさん [sage] 2022/06/29(水) 12:31:17.45 ID:WL8L6KaP スレを間違ったことではなくマルチが問題なのだがな http://mevius.5ch.net/test/read.cgi/tech/1544620479/551
552: デフォルトの名無しさん [sage] 2022/06/29(水) 13:27:42.53 ID:tPok425v >>551 それだけ焦ってたんでしょ。Excel VBA で反応がなければ藁をもすがる気持ちで アクセス VBA で聞いたんじゃない。 広い気持ちで http://mevius.5ch.net/test/read.cgi/tech/1544620479/552
553: デフォルトの名無しさん [] 2022/06/29(水) 13:50:40.09 ID:Es0nfTu8 x VBA初心者 o 5ch初心者 o パソコン初心者 o コミュ障入門者(上級) http://mevius.5ch.net/test/read.cgi/tech/1544620479/553
554: 516 [sage] 2022/06/30(木) 01:00:46.93 ID:1OP/W/CA DoCmd.OpenReport "レポート名", acViewPreview DoCmd.PrintOut acPrintAll, , , acHigh, 枚数 新規レポートにラベルを貼っただけものだと希望どおりの枚数が印刷される. しかし,別のレポートだと常に1枚しか印刷されない. ネットでも同じ報告を確認した.バグ説もある. 皆さんはどうですか？やっぱりバグですかね？ http://mevius.5ch.net/test/read.cgi/tech/1544620479/554
555: 516 [sage] 2022/06/30(木) 16:01:17.27 ID:1OP/W/CA 解決した. デコンパイルとコンパクトしたらいつの間にか設定した枚数が印刷されるようになった. accessはマジで面倒くさいなあ. デコンパイルとコンパクトの待ち時間をを返して欲しいよ http://mevius.5ch.net/test/read.cgi/tech/1544620479/555
556: デフォルトの名無しさん [sage] 2022/06/30(木) 19:00:33.50 ID:PX9/MxY9 デコンパイル、知りませんでした。 http://mevius.5ch.net/test/read.cgi/tech/1544620479/556
557: デフォルトの名無しさん [sage] 2022/06/30(木) 20:22:38.17 ID:1+oYjPxt デコンパイル、昔は割と鉄板の解決方法だったんだけどね それでだめなら新規作成して全モジュールインポートとかもあったな 最近は必要性が減ったけど、まだたまにはあるんだな http://mevius.5ch.net/test/read.cgi/tech/1544620479/557
558: 516 [sage] 2022/06/30(木) 22:53:16.59 ID:1OP/W/CA コンパクトだけでも良かったのかも知れないが,習慣で両方やることにしている ついいましがたも.Docmd.OpenReportのOpenArgsがレポートに渡らなくて困っていたが,コンパクトをしたら作動した. 終了時にコンパクトするオプションがあるくらいだから頻繁にやるべきなんだろうね. コード書いているときは非常に頻繁に破損するからね. http://mevius.5ch.net/test/read.cgi/tech/1544620479/558
559: デフォルトの名無しさん [sage] 2022/06/30(木) 23:46:30.14 ID:1+oYjPxt あれはデータ領域を圧縮するのが主で、コード部分にはあまり影響しなかった気がするが 最近のアクセスでコードが破損するのはだいぶ減ったと思うが VBEからコンパイルするだけで解決してたんじゃないか？ http://mevius.5ch.net/test/read.cgi/tech/1544620479/559
560: 516 [sage] 2022/07/01(金) 00:40:02.55 ID:SILFs/Ha くわしいことはわからないが,挙動不審が治ることがあるんだよねえ とにかく,試行錯誤していると必ずと言っていいほど,壊れるよねえ. メモリーが不足していますとか出始めると,その日のうちに全フォーム消失とか起こるからなあ. http://mevius.5ch.net/test/read.cgi/tech/1544620479/560
561: デフォルトの名無しさん [sage] 2022/07/01(金) 10:45:11.72 ID:x9gnk4T5 試行錯誤の過程のほとんどを貯め込むからな 設定で「終了時に最適化」で、都度終了を心掛けるか 大幅な改修の度にコンパイルのクセを付けるか ファイルサイズに気を付けて、「こんなサイズのはずは無い」ってな時は要注意 で、それは、お道具の使い方が雑、間違ってるってだけで、すぐAccessのせいにする連中はお里が知れる ってこと http://mevius.5ch.net/test/read.cgi/tech/1544620479/561
562: 516 [sage] 2022/07/07(木) 15:33:38.95 ID:9tJXVGoG 下のコードでmdbのディレクトリが表示されると思いきや、 ディレクトリ Documents フルパス C:\Users\MyName\Documents が表示された。vbsならscriptの存在するディレクトリだからmdbの存在するディレクトリが表示されると思ったのに、違う。 このことを説明してある資料ありますかね？ Sub test() Dim fso Dim objfolder Set fso = CreateObject("Scripting.FileSystemObject") Set objfolder = fso.GetFolder(".") Debug.Print "ディレクトリ", ob
jfolder.Name Debug.Print "フルパス", objfolder.Path End Sub http://mevius.5ch.net/test/read.cgi/tech/1544620479/562
563: デフォルトの名無しさん [sage] 2022/07/07(木) 16:12:50.20 ID:N4ENiOaQ >>562 mdb/accdbファイルの場所が欲しいのなら CurrentProject.Path を使おう CurDir$や>>562の例なんかで返されるカレントディレクトリはファイルダイアログとかで開いたフォルダになるっぽい その辺の仕様に関する資料は知らんけど http://mevius.5ch.net/test/read.cgi/tech/1544620479/563
564: デフォルトの名無しさん [sage] 2022/07/07(木) 19:57:05.70 ID:V/fQnZ1U そもそも、 >vbsならscriptの存在するディレクトリ が間違ってる気がするが カレントディレクトリの概念って最近は説明されてるの見ないなぁ GetFolder(".")が返してるのはカレントディレクトリ（からの相対パスで自分自身） カレントディレクトリはACCESS.EXEの場所や.MDBファイルの場所とは別に存在する まあMDB開くときはそこをカレントにする場合が多いけどな つねに一致してるとは限らん http://mevius.5ch.net/test/read.cgi/tech/1544620479/564
565: 516 [sage] 2022/07/07(木) 20:26:42.06 ID:9tJXVGoG >>564 > そもそも、 > >vbsならscriptの存在するディレクトリ > が間違ってる気がするが VBSで稼働していたスクリプトをVBAに移植している際に気づいたので、正しいと思います。 スクリプトを任意のフォルダにコピーしてそのフォルダ内のファイルを一括処理するのに使っていましたので。 http://mevius.5ch.net/test/read.cgi/tech/1544620479/565
566: デフォルトの名無しさん [sage] 2022/07/07(木) 20:31:06.22 ID:ty1oWU7C chdirで変えられちゃうけど http://mevius.5ch.net/test/read.cgi/tech/1544620479/566
567: 516 [sage] 2022/07/07(木) 20:55:49.31 ID:9tJXVGoG ユーザはおいら1人だからいいのです。 http://mevius.5ch.net/test/read.cgi/tech/1544620479/567
568: デフォルトの名無しさん [sage] 2022/07/07(木) 21:30:15.27 ID:V/fQnZ1U いやだから、scriptの存在するディレクトリじゃなくて、 カレントディレクトリが表示されてるって話なんだがな たまたまそれが同じだっただけだ ここ理解しないと思ったディレクトリが表示されない理由が理解できないぞ http://mevius.5ch.net/test/read.cgi/tech/1544620479/568
569: デフォルトの名無しさん [] 2022/07/07(木) 22:24:24.15 ID:rKn8i4wF 馬鹿に何を言っても無駄な例だぞ http://mevius.5ch.net/test/read.cgi/tech/1544620479/569
570: デフォルトの名無しさん [sage] 2022/07/08(金) 10:33:00.73 ID:aHYxM19P >>565 そのスクリプトをショートカットにして、 作業フォルダを変えて動かしてみたい http://mevius.5ch.net/test/read.cgi/tech/1544620479/570
571: デフォルトの名無しさん [sage] 2022/07/08(金) 12:10:02.96 ID:/znuHP85 カレントディレクトリみたいな、あやふやなものを使ってはいけない。 これが使えるのは、絶対に変化しない場合だけ 起動時に、特定のフォルダを指定するとか、 あらかじめ定数などに保存しておく http://mevius.5ch.net/test/read.cgi/tech/1544620479/571
572: デフォルトの名無しさん [sage] 2022/07/08(金) 12:16:33.93 ID:/znuHP85 例えばデスクトップに、以下のショートカットを作ると、 WSL2 で、Ubuntu 18.04 を起動して、 その /home/ユーザー名/test ディレクトリを、VSCode で開く リンク先 C:\Windows\System32\wsl.exe code . 作業フォルダ \\wsl$\Ubuntu-18.04\home\ユーザー名\test http://mevius.5ch.net/test/read.cgi/tech/1544620479/572
573: デフォルトの名無しさん [sage] 2022/07/08(金) 12:30:53.39 ID:PreZKXp3 もはやAccess VBAとは関係ない話になってるし、元質問者は聞く耳持たないみたいだから これ以上続ける意味無いよ http://mevius.5ch.net/test/read.cgi/tech/1544620479/573
574: デフォルトの名無しさん [] 2022/07/11(月) 11:04:56.16 ID:1W23UOpt >>562 fso使ってるんだから当たり前 http://mevius.5ch.net/test/read.cgi/tech/1544620479/574
575: デフォルトの名無しさん [sage] 2022/07/12(火) 17:20:09.84 ID:xDQ7ywi9 >>574 なぜ「fsoを使うと」なにが、「当たり前」なんだい？ http://mevius.5ch.net/test/read.cgi/tech/1544620479/575
576: デフォルトの名無しさん [] 2022/07/13(水) 18:08:17.37 ID:sooqvjiy 7月12日のWindows Updateを実施した端末で軒並み「要求されたタイプ ライブラリまたはウィザードは VBA プロジェクトではありません。」 というエラーが出てAccessで作ったものが起動できない症状が出てるんだけど、何か知ってる？ ちなみにAccess Runtimeを再インストールすると直る。修復ではダメ。 http://mevius.5ch.net/test/read.cgi/tech/1544620479/576
577: デフォルトの名無しさん [] 2022/07/13(水) 18:15:29.57 ID:sooqvjiy >>576 書き忘れたけど手元で問題が発生しているのはAccess Runtime 2013 32bitの端末。 OSはWin8.1とWin10の両方で発生してる。 http://mevius.5ch.net/test/read.cgi/tech/1544620479/577
578: デフォルトの名無しさん [sage] 2022/07/13(水) 19:12:40.99 ID:PtV2v+lq うちの環境とほぼ同じですね、まだ発生してないけど明日あたり起きるのかな。 runtimeの入れ直しですね、了解っす。 http://mevius.5ch.net/test/read.cgi/tech/1544620479/578
579: デフォルトの名無しさん [] 2022/07/14(木) 09:57:45.69 ID:gGJjrJSy >>576 特定した。 KB5002121を入れると症状が発生する。 Access Runtimeを再インストールしても再度Windows Updateを実施すると元に戻るから KB5002121をブロックしないとダメだ。 http://mevius.5ch.net/test/read.cgi/tech/1544620479/579
580: 44 [sage] 2022/07/14(木) 12:52:21.90 ID:Fq9OF9ol 迷惑な話ですねえ。 MSのプログラマーがアホなのは今に始まったことじゃないけど http://mevius.5ch.net/test/read.cgi/tech/1544620479/580
581: デフォルトの名無しさん [sage] 2022/07/14(木) 18:41:39.80 ID:Zi9qyvS+ 昔ＥＸＣＥＬのＶＢＡで似たような話が合った気がするな その時はテンポラリディレクトリの掃除したら起動するようになったはずだから いちど試してみては http://mevius.5ch.net/test/read.cgi/tech/1544620479/581
582: デフォルトの名無しさん [] 2022/07/18(月) 12:31:42.55 ID:1omE+gQa MSは自社製品のテスト駆動開発すらしてない テストが面倒になるとサポート打ち切り http://mevius.5ch.net/test/read.cgi/tech/1544620479/582
583: デフォルトの名無しさん [] 2022/07/18(月) 13:02:03.33 ID:dNd6yRIh >>582 それソースあるの？ http://mevius.5ch.net/test/read.cgi/tech/1544620479/583
584: デフォルトの名無しさん [sage] 2022/07/19(火) 13:18:07.18 ID:4mWHj4S5 2022年7月パッチで「Microsoft Access」に問題、バージョンが異なるとファイルが開けない https://forest.watch.impress.co.jp/docs/news/1425748.html ＞異なるバージョンの「Microsoft Access」で作成されたデータベースファイル（ACCDE/MDE）を開こうとすると、「要求されたタイプ ライブラリまたはウィザードは VBA プロジェクトではありません」というエラーが発生する場合がある http://mevius.5ch.net/test/read.cgi/tech/1544620479/584
585: デフォルトの名無しさん [sage] 2022/07/20(水) 10:36:39.60 ID:Rwr2SDqT Formを変数にSetするとき下の二つのやり方のどちらが速いか試したら、結構まちまちなんですよね。 後者はEarly Bindingだと思うんだけど、ループさせると前者が速いことも結構あって不思議だ。 だれかこのあたりの事情をご存じの方いますか？ Dim F As Form Set F = Forms!FormName Dim F As Form_FormName Set F = Forms!FormName http://mevius.5ch.net/test/read.cgi/tech/1544620479/585
586: デフォルトの名無しさん [] 2022/07/20(水) 11:16:41.39 ID:2HHkZJi9 >>584 runtime版でそれ出たな、試行錯誤でruntime2016からruntime365に変えたら動いたｗ事がある。 http://mevius.5ch.net/test/read.cgi/tech/1544620479/586
587: デフォルトの名無しさん [] 2022/07/20(水) 15:41:40.93 ID:qJwz0nM8 runtimeは糞 http://mevius.5ch.net/test/read.cgi/tech/1544620479/587
588: デフォルトの名無しさん [sage] 2022/07/20(水) 18:29:58.22 ID:BaO5YoZA >>585 あってるかどうかは知らんが !は実行時に列挙する気がするんだが 後者は型チェックと変換が入るから後者のほうが遅いと思う 前者も入るかもしれんが、そうなるとForm型とForm_FormName型でどっちのキャストが早いかで 結局やっぱり後者が遅い気がする どっちにしたってFは型指定されているので事前バインドだが、 それが差に出るのはFのメンバーを使うときだぜ まあ、なんにしても誤差レベルだと思うが http://mevius.5ch.net/test/read.cgi/tech/154462
0479/588
589: デフォルトの名無しさん [] 2022/10/28(金) 11:06:17.52 ID:L4jXkRvB PC画面のスクショを撮って、印刷させたいのですが とっかかりすら分からない初心者です 検索しても該当サイトはなかったので よろしければご教授願いたいです http://mevius.5ch.net/test/read.cgi/tech/1544620479/589
590: デフォルトの名無しさん [sage] 2022/10/28(金) 12:19:16.61 ID:QXDDHW1b >>589 Windows標準の切り取り＆スケッチを使えばできます ACCESSからコントロールしたいのですか? http://mevius.5ch.net/test/read.cgi/tech/1544620479/590
591: デフォルトの名無しさん [] 2022/10/28(金) 12:33:34.88 ID:L4jXkRvB >>590 はい、ExcelかAccessでとのことで、 今後の勉強含めAccessに挑んでいます。 不特定多数が使用する環境で （リテラシーが低い人も混在） ボタン一つで全画面スクショ印刷と アクティブウィンドウのみスクショ印刷 の2通りできるようにしたいです （スクショしたデータは印刷後削除される仕様にしたい） 今のところ全画面スクショはできたのですが アクティブウィンドウと その後の印刷と削除で、つまづいてます。 ド初心者なので、見当違いな質問をしていたら
申し訳ありません http://mevius.5ch.net/test/read.cgi/tech/1544620479/591
592: デフォルトの名無しさん [sage] 2022/10/28(金) 12:48:59.54 ID:14o/00kf API経由で[PrtSc]（全画面）、[Alt]+[PrtSc]（アクティブウィンドウのみ）を押せばクリップボードに画面キャプチャができるだろうから それをレポート上のImageに突っ込んで印刷すればいいんじゃないのかな？ 試してないから実際にできるかは知らんけど http://mevius.5ch.net/test/read.cgi/tech/1544620479/592
593: デフォルトの名無しさん [] 2022/10/28(金) 18:23:03.59 ID:ivdM6iIS >>592 ありがとうございます 土日に試してみます！ http://mevius.5ch.net/test/read.cgi/tech/1544620479/593
594: デフォルトの名無しさん [] 2022/12/09(金) 21:17:19.25 ID:XI7rGRQs サーバーから検索したいのに上手くいかない どこか修正するとこありますか？ Private Sub CommandButton1_Click() Const BASE_PATH = "\\L\設計\図面"Dim myPath As String, myName As String Dim FSO As Object, oFolder As Object, oSubFolder As Object, oFile As Object On Error Resume Next If TextBox1.Value = ""Then Exit Sub ListBox1.Clear Set FSO = CreateObject("Scripting.FileSystemObject") Set oFolder = FSO.GetFolder(BA
SE_PATH) For Each oSubFolder In oFolder.SubFolders For Each oFile In oSubFolder.Files If LCase(oFile.Name) Like LCase(TextBox1.Value) &"*.pdf"Then Debug.Print oFile.Path myPath = oFile.ParentFolder &"\"myName = oFile.Name ListBox1.AddItem myName ListBox1.List(ListBox1.ListCount - 1, 1) = myPath End If Next Next Set FSO = Nothing End Sub http://mevius.5ch.net/test/read.cgi/tech/1544620479/594
595: デフォルトの名無しさん [sage] 2022/12/10(土) 17:10:55.98 ID:HwePKFIg 何がどううまくいかないんだ？ On Error Resume Next外して、エラー内容かけ http://mevius.5ch.net/test/read.cgi/tech/1544620479/595
596: デフォルトの名無しさん [sage] 2022/12/11(日) 02:53:35.00 ID:08xatqWx 知らんけど、コマンドプロンプトで取得した方が速いと思うぞ。 http://mevius.5ch.net/test/read.cgi/tech/1544620479/596
597: デフォルトの名無しさん [sage] 2022/12/11(日) 14:47:06.06 ID:BK2dpDEr ネットワークだとビックリするほど遅いよね http://mevius.5ch.net/test/read.cgi/tech/1544620479/597
598: デフォルトの名無しさん [sage] 2022/12/21(水) 12:29:44.27 ID:29nQbkr4 表形式にしたフォーム上の一行一行に対して、そのレコードのID.pdfが指定のフォルダにあれば○、無ければ空白って文字を連結したテキストボックスに入れたいんだけど。 Dir使って判定させるところまでは出来たけど、vbaを実行させるタイミングの問題なのかな？ 詳細セクションの描画時選んだら代入出来ませんって出た。 試しに詳細セクションダブルクリックだと該当レコードだけは入ったけど。。 一括で全レコード対象にする方法あるんでしょうか。。？ http://mevius.
5ch.net/test/read.cgi/tech/1544620479/598
599: デフォルトの名無しさん [sage] 2022/12/21(水) 13:19:20.60 ID:oTvIdtcL データシートビューのソースの段階でクエリ使ってる？ 〇や(空白)を入力するフィールドは確保されてる？ 元のソースにpdfファイルがあるか無いかを画面上で比較しながらひとつずつ入力するつもり？ 仮のテーブル作ってフォルダ内のpdfのファイル名をDir使ってそのテーブルに代入すれば 簡単に元のソースにも反映出来ると思うけど どうしてもデータシートビューで比較しながら入れたい？ pdfが入ってるフォルダ内がしょっちゅう追加・変更・削除がある場合だとしても、
仮のテーブル使っとけば 都度最新の状況での比較が可能だと思えるし、不足してるからpdf作らなきゃ、の指針にも成るような気がする でも、元のソースに〇のフィールド作っちゃうと、pdf削除されても〇のまま消えない可能性もあるから対策必要か つまり、一括で全レコード対象にするなら、Dir結果をcsvなりtxtなりに落とし込んで、それと元ソースで更新クエリがいちばん早い http://mevius.5ch.net/test/read.cgi/tech/1544620479/599
600: デフォルトの名無しさん [sage] 2022/12/21(水) 14:08:13.72 ID:29nQbkr4 >>599 ありがとうございます 一旦別のテーブルなりCSVなりにファイル一覧作ってみる事にします！ 思い付きもしませんでした http://mevius.5ch.net/test/read.cgi/tech/1544620479/600
601: デフォルトの名無しさん [sage] 2023/03/02(木) 17:30:45.61 ID:oTm0acsN 値にtrueやfalseが含まれるexcelファイルをDocmd.TransferSpreadsheetを使ってテーブルに取り込むと、 数値として反映されてしまうんですが、理論値のまま取り込む方法はありますか？ 変換かけるしかないのかな http://mevius.5ch.net/test/read.cgi/tech/1544620479/601
602: デフォルトの名無しさん [sage] 2023/03/05(日) 12:31:16.13 ID:Yb2sf8rL >>601 取り込んだ後でクエリーで値変えれば良かろうに http://mevius.5ch.net/test/read.cgi/tech/1544620479/602
603: デフォルトの名無しさん [sage] 2023/03/24(金) 00:30:10.12 ID:higFVnZ+ recordset.Fields.Append "フィールド名", adChar, 200 とかでフィールドを新規設定するといろいろと挙動不審になって､エラーが頻発した｡ 俺が気がついたのはLen関数がおかしな数字を返すこと｡スペースの数を返す｡ これのおかげなのか､DictionaryのKeyが変なことになり､ただしいItemが取得出来なくて2日潰したわ｡ Trim関数に入れたらまともに動き出した｡よけいなスペースが付加されていたため､本来の値と異なっていた｡ このあたりの事情を書いたものあるのかな
あ？ http://mevius.5ch.net/test/read.cgi/tech/1544620479/603
604: デフォルトの名無しさん [sage] 2023/03/24(金) 10:46:32.87 ID:pyQciQm5 Recordsetの作成（DAO編） http://www7b.biglobe.ne.jp/~cbcnet/DAO/database.html レコードセットの作成（ADO編） http://www7b.biglobe.ne.jp/~cbcnet/ADO/append.html 第4話 DAOとADOの違い https://www.r-staffing.co.jp/engineer/entry/20210806_1 同一システム内でDAOとADOを併用しないよう留意 とか？ http://mevius.5ch.net/test/read.cgi/tech/1544620479/604
605: デフォルトの名無しさん [sage] 2023/03/25(土) 11:49:45.50 ID:zs10i3Ml エラーが出るもんだから､VarType関数使って疑わしい変数を調べたら､18が返ってきた｡ しかし､そんな定数ないんだよなあ｡これはどういうことだ？ http://mevius.5ch.net/test/read.cgi/tech/1544620479/605
606: デフォルトの名無しさん [sage] 2023/03/25(土) 11:59:33.48 ID:nHkGBQf7 値の合計なので、10と8とか 5と6と7とか 思い当たるのをひとつずつ潰してく http://mevius.5ch.net/test/read.cgi/tech/1544620479/606
607: デフォルトの名無しさん [sage] 2023/03/25(土) 13:37:32.34 ID:zs10i3Ml >>606 ありがとう｡ Msgboxでそような定数の合計をしますね｡ ところで､そのような知識は私の持っているVBA､VBS､Accessの本には記載されていない様な気がします｡ もしかしたら､Visual Basicでは常識なのでしょうか？それとも一般的なプログラミングの世界での常識ですか？ 私は仕事でVBAをいじるだけで､一般的なプログラミングはほとんど知らないのでお尋ね致します｡ http://mevius.5ch.net/test/read.cgi/tech/1544620479/607
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 181 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.015s