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