[過去ﾛｸﾞ]
Access VBA 質問スレ Part1 (1002ﾚｽ)
Access VBA 質問スレ Part1 http://mevius.5ch.net/test/read.cgi/tech/1328536426/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
509: デフォルトの名無しさん [sage] 2015/11/12(木) 04:28:05.37 ID:MeI9ns/Z >>505 は？馬鹿はいちいちスレに出張って来るなよww 何がマクロの操作を記録だ馬鹿が。 http://mevius.5ch.net/test/read.cgi/tech/1328536426/509
510: デフォルトの名無しさん [sage] 2015/11/12(木) 12:35:52.00 ID:pHlRdfiq 普通にフォームと同じソースの「れぽーとほげ」を用意しておいて DoCmd, OpenReport "れぽーとほげ", acViewPreview ではダメな理由があるのかな？ フォーム上でレポートに応用できるように画面設計 作り込むよりは専用のレポートで別制作しといたほうが何十倍も効率いいだろうにな http://mevius.5ch.net/test/read.cgi/tech/1328536426/510
511: デフォルトの名無しさん [sage] 2015/11/12(木) 12:42:12.51 ID:tbcgbggA >>504 ちょっと出来ない事があるとVBAに頼るのはよくない。 Officeの使い方をもっと勉強してからVBAに手を出すべきだよ。 「パラメータクエリ」と「フォーム」で作ればなんとかなるかな。 というわけで、VBA必要ないので↑の２つのキーワードでggrks http://mevius.5ch.net/test/read.cgi/tech/1328536426/511
512: 511 [sage] 2015/11/12(木) 12:43:58.58 ID:tbcgbggA パラメータクエリとレポートでも作れるわ。 http://mevius.5ch.net/test/read.cgi/tech/1328536426/512
513: デフォルトの名無しさん [sage] 2015/11/12(木) 14:18:08.75 ID:Cdboni3Z フォームからfrom日付-to日付を入力 ↓ テーブルから購入日が対象範囲のデータ取得 テーブル構造は シーケンスno.,氏名,購入品1,購入日1(購入日、購入品は6まで存在) ↓ クロス集計にて月毎の金額を集計 ↓ レポートに出力 入力する日付によってフィールド数が可変なため、レポートの作成はしていないです。 vbaを使う必要がなく可変レポートが作成出来るならスルーして下さい http://mevius.5ch.net/test/read.cgi/tech/1328536426/513
514: デフォルトの名無しさん [sage] 2015/11/12(木) 15:03:31.62 ID:m1A4y0ZB >>513 クエリ作っときゃいいんじゃないの？集計の。 フィールド数が可変とはなんぞ。 http://mevius.5ch.net/test/read.cgi/tech/1328536426/514
515: 511 [sage] 2015/11/12(木) 16:03:58.58 ID:tbcgbggA >>513 テーブルの基本設計からやり直せ。 購入品と購入日が１〜６って無いと思います。 http://mevius.5ch.net/test/read.cgi/tech/1328536426/515
516: デフォルトの名無しさん [sage] 2015/11/12(木) 16:36:07.67 ID:Cdboni3Z >>515 くそなテーブルだと思ってますが自分が作ったテーブルではないので変更出来ません http://mevius.5ch.net/test/read.cgi/tech/1328536426/516
517: 511 [sage] 2015/11/12(木) 16:42:28.68 ID:tbcgbggA >>516 レポート用にテーブル作っちゃうことはできないの？ http://mevius.5ch.net/test/read.cgi/tech/1328536426/517
518: デフォルトの名無しさん [sage] 2015/11/12(木) 16:43:56.03 ID:m1A4y0ZB >>516 だからクエリ作れよ。 select id,1 as 区分,氏名,購入日1 as 購入日,購入品1 as 購入品 union select id,2 as 区分,氏名,購入日2 as 購入日,購入品2 as 購入品 : select id,6 as 区分,氏名,購入日6 as 購入日,購入品6 as 購入品 で、あとはそれに対して、fromToでフィルタ掛ければいいんでないの？ http://mevius.5ch.net/test/read.cgi/tech/1328536426/518
519: デフォルトの名無しさん [sage] 2015/11/12(木) 16:44:59.17 ID:Cdboni3Z >>514 入力した期間に応じて月が増減します http://i.imgur.com/gnTtfzv.jpg 集計用のクエリは作成したのでリボンにあるレポートボタン同様に自動でリポート作成出来ないかと思ってます http://mevius.5ch.net/test/read.cgi/tech/1328536426/519
520: デフォルトの名無しさん [sage] 2015/11/12(木) 16:47:06.72 ID:m1A4y0ZB >>519 帳票一枚に並べられる分の月数を元からつくっとけ。 http://mevius.5ch.net/test/read.cgi/tech/1328536426/520
521: デフォルトの名無しさん [sage] 2015/11/12(木) 17:02:23.22 ID:Cdboni3Z >>517 くえりをそのままレポートは難しそうだったのでテーブル化はしてあります http://mevius.5ch.net/test/read.cgi/tech/1328536426/521
522: デフォルトの名無しさん [] 2015/11/13(金) 20:45:36.98 ID:7WxIZdrP 複雑になってるクエリが循環参照になってるようなのだが、読み解かずにテーブル作成して逃げようとしたらまたエラーなんとかならんかなー http://mevius.5ch.net/test/read.cgi/tech/1328536426/522
523: デフォルトの名無しさん [sage] 2015/11/13(金) 20:51:20.52 ID:etlrmpjh >>519 クエリ出来てるなら、レポート作って保存しておけば好きなときに開くだけじゃん http://mevius.5ch.net/test/read.cgi/tech/1328536426/523
524: デフォルトの名無しさん [sage] 2015/11/13(金) 22:14:56.04 ID:fKrJSaVy vbaでfilecopy(fsoも含む)でリムーバブルディスクにファイルをコピーするとハードウェアの安全な取り外しで ファイルが使用中とかでできない。まぁ警告のダイアログで続行を押すと取り外せるんだけど、これやると マイコンピュータからリムーバブルディスクが消えなかったりすることがある。 accessを終了すると普通に取り外せるんだけど、これをなんとかできないかなぁ。 http://mevius.5ch.net/test/read.cgi/tech/1328536426/524
525: デフォルトの名無しさん [sage] 2015/11/14(土) 00:03:58.17 ID:Q8aVOdfz >>524 Fsoでやるなら、 宣言で as new ...とかしない、最後にNothing入れとくを徹底したら無くなるんじゃないかな。 http://mevius.5ch.net/test/read.cgi/tech/1328536426/525
526: デフォルトの名無しさん [sage] 2015/11/14(土) 00:13:34.12 ID:YdrOLc06 カレントフォルダとカレントドライブを明示的に リムーバブルじゃないとこに設定してやれば行ける見たいな事を聞いたことがある http://mevius.5ch.net/test/read.cgi/tech/1328536426/526
527: デフォルトの名無しさん [sage] 2015/11/14(土) 07:50:49.05 ID:ZUqvxiq2 >>524 それ、使用したメソッドがファイル掴んだままで、開放してないからでしょ。ちゃんとプログラミングのイロハ身につけてたらやらない。 使ったら必ず開放する。VBAユーザはなぜか使いっぱなしが多い。 http://mevius.5ch.net/test/read.cgi/tech/1328536426/527
528: デフォルトの名無しさん [sage] 2015/11/14(土) 08:28:36.61 ID:f21e1kim .NETなんかだとマネージドは書いてもほぼ意味なかったりで使いっ放し推奨 http://mevius.5ch.net/test/read.cgi/tech/1328536426/528
529: 524 [sage] 2015/11/14(土) 10:27:44.88 ID:c/SicAL6 >>525、527 Dim objFileSys As Object Set objFileSys = CreateObject("Scripting.FileSystemObject") objFileSys.CopyFile 元ファイル, コピー先フォルダ & "\" Set objFileSys = Nothing copyfileの部分だけをかいつまんで書くとこんな感じだけど、解放の仕方を教えてくれないか。 リムーバブルディスクにコピーしたファイルは開けるし削除もできるからロックされた感じじゃないんだよね。 安全なハードウェアの取り外しだけがうまくいかないんだよ。 http
://mevius.5ch.net/test/read.cgi/tech/1328536426/529
530: デフォルトの名無しさん [sage] 2015/11/14(土) 11:01:39.40 ID:ajpWryyv getdriveとか適当なのを実行してみたら？ カレントが移動するかも。 http://mevius.5ch.net/test/read.cgi/tech/1328536426/530
531: 524 [sage] 2015/11/14(土) 12:52:04.15 ID:c/SicAL6 >>526、530 ありがとう。この方法で解決した。 ChDrive "c" って1行追加しただけでOKでした。言われないと気付かなかったから助かりました。 他のみなさんもありがとう。 http://mevius.5ch.net/test/read.cgi/tech/1328536426/531
532: デフォルトの名無しさん [sage] 2015/12/06(日) 22:14:00.95 ID:ZiGqGoDJ 重複した文言の多いcsvファイルの情報を読み込む時に、重複しない文言を蓄えたテーブルと、 文言テーブルのIDだけを入力したテーブルに分けて管理する事で容量を節約しようと思ってるんですが、 人が読める様にIDから元の文言を復元したテーブルを作りたいと思った時、 VBAで文言一つ一つ代入したテーブルを新たに作るしかないですかね？ http://mevius.5ch.net/test/read.cgi/tech/1328536426/532
533: デフォルトの名無しさん [sage] 2015/12/07(月) 01:08:03.51 ID:D3MoacxB IDでテーブル結合したview作るなりクエリにすりゃいいんじゃないの どちらにしろVBAとか関係ないと思う http://mevius.5ch.net/test/read.cgi/tech/1328536426/533
534: デフォルトの名無しさん [sage] 2015/12/10(木) 11:46:09.31 ID:V//Y2NlP 質問です Access2007ファイルのショートカットをデスクトップに作ろうと思って https://www.moug.net/tech/acvba/0020025.html ここを参考にパスとかだけ変えて作ったんだけど、ショートカットが作成されません 解決策教えてください http://mevius.5ch.net/test/read.cgi/tech/1328536426/534
535: デフォルトの名無しさん [sage] 2015/12/10(木) 12:16:08.88 ID:gg94mj0B うちはできたよ http://mevius.5ch.net/test/read.cgi/tech/1328536426/535
536: 534 [sage] 2015/12/11(金) 16:06:56.86 ID:UbN3V6OX 出来ました。 http://mevius.5ch.net/test/read.cgi/tech/1328536426/536
537: デフォルトの名無しさん [sage] 2016/01/04(月) 04:37:40.84 ID:KKPx2R3A mdbファイルのテーブル構造をADO.NET SqlCommandで取り出す方法を知りたいです。（データ定義言語的な取り出し） DoCmd.TransferDatabase acExportでできるテーブル構造のコピーと同じことを，ADO.NETで，元データなしで実現（テーブル生成）したり プログラム側が想定するテーブル構造と一致するか確認する処理をテーブル生成→比較とすることで一般化したりしたいのですが http://mevius.5ch.net/test/read.cgi/tech/1328536426/537
538: デフォルトの名無しさん [] 2016/01/04(月) 18:57:08.11 ID:uh/Y4MEw ADODBEX http://mevius.5ch.net/test/read.cgi/tech/1328536426/538
539: デフォルトの名無しさん [sage] 2016/01/09(土) 22:01:59.03 ID:ytxGXkKI Accessでプロマネの仕事頼まれたけど断ったわ もうVisualStudioが無いと何もできない体になってしまった http://mevius.5ch.net/test/read.cgi/tech/1328536426/539
540: デフォルトの名無しさん [sage] 2016/01/10(日) 01:26:39.26 ID:0BvJ+8Ai プロマネの仕事は開発じゃない、とつっこみ http://mevius.5ch.net/test/read.cgi/tech/1328536426/540
541: デフォルトの名無しさん [sage] 2016/01/11(月) 08:38:46.37 ID:grtS6L7L >>540 そういういかにも日本的で世界で通用しない回答は誰も期待していないし、 君みたいな奴は誰も求めていない。 http://mevius.5ch.net/test/read.cgi/tech/1328536426/541
542: デフォルトの名無しさん [sage] 2016/01/11(月) 17:35:29.30 ID:ErJJ4Q3v >>541 君には悲しいかもしれないけど、ここ日本なのよね http://mevius.5ch.net/test/read.cgi/tech/1328536426/542
543: デフォルトの名無しさん [sage] 2016/01/14(木) 21:12:26.51 ID:RIYdCmvc テーブルにインポートするとたまに失敗する変なゴミデータが入ったエクセルファイルをVBAでテーブルに登録しようとしてます。1レコード100フィールドほどあるもので、addnewで登録すると100件で20秒ほど掛かってしまいます。 Insertでも23秒でした。 全部で10万件あるのですが、高速登録する方法ないでしょうか？ http://mevius.5ch.net/test/read.cgi/tech/1328536426/543
544: デフォルトの名無しさん [sage] 2016/01/14(木) 22:01:16.12 ID:fK8eMzuy >>543 配列で受けると速くなるかもしれない dim ary as variant ary = Range("A1").CurrentRegion.value ' 1オリジンの2次元配列 http://mevius.5ch.net/test/read.cgi/tech/1328536426/544
545: デフォルトの名無しさん [sage] 2016/01/14(木) 22:04:06.66 ID:fK8eMzuy ゴミは数式やエラー値が混ざってるんだろうから配列にした段階で適当に変換する dim row, col for row = lbound(ary(), 1) to ubound(ary(), 1) for col= lbound(ary(), 2) to ubound(ary(), 2) if ゴミ？(ary(row, col)) then ary(row, col) = ゴミ処理(ary(row, col)) next next この後でテーブル登録する http://mevius.5ch.net/test/read.cgi/tech/1328536426/545
546: デフォルトの名無しさん [sage] 2016/01/14(木) 23:52:25.44 ID:SY7xxp+v >>543 パフォーマンス重視ならレコードセットやExcelオブジェクトは扱わない方が良いですよ 1.インポート定義でインポート 2.リンクテーブルを作って追加クエリ 3.SQL の IN 句使って INSERT 4.OLE DB の Jet か ACE で接続して INSERT などなど... ゴミが混ざるならゴミを許容する作業テーブルにインポートしてから後始末をするとか 処理の仕方も色々あると思います、頑張ってください http://mevius.5ch.net/test/read.cgi/tech/1328536426/546
547: デフォルトの名無しさん [sage] 2016/01/14(木) 23:55:58.95 ID:SY7xxp+v 書き忘れ インポート定義は文字列切り詰めなどが起きるかもしれないので 使うなら想定しておいた方が良いです http://mevius.5ch.net/test/read.cgi/tech/1328536426/547
548: デフォルトの名無しさん [sage] 2016/01/15(金) 00:07:44.49 ID:obwNql4P レコード長とかPCのスペックとかもわからんが コードでもっと早くできる余地がいっぱいある気がするぞ というか、純粋な追加で時間かかってるのか？ エラーチェックに時間かかってるんじゃないのか http://mevius.5ch.net/test/read.cgi/tech/1328536426/548
549: デフォルトの名無しさん [sage] 2016/01/17(日) 14:16:21.53 ID:A2o/pomn access2013の質問がしたいのですがここでは不可でしょうか？探してもスレが見つからなかったので誘導していただけないでしょうか？ http://mevius.5ch.net/test/read.cgi/tech/1328536426/549
550: デフォルトの名無しさん [] 2016/01/17(日) 18:47:14.28 ID:wzxdIUIG 聞くがよい http://mevius.5ch.net/test/read.cgi/tech/1328536426/550
551: デフォルトの名無しさん [sage] 2016/01/18(月) 17:00:22.89 ID:cbTDZ81K Access総合相談所 27 http://peace.2ch.net/test/read.cgi/bsoft/1424828244/ http://mevius.5ch.net/test/read.cgi/tech/1328536426/551
552: デフォルトの名無しさん [sage] 2016/01/20(水) 21:12:14.20 ID:b2HKKJl2 access 2013での質問です。 テーブルAの構成要素は【id(オートナンバー）、写真（添付ファイルで複数値を持つフィールド）】となっております。 この状態で、テーブルAの任意のIDに写真が入っているか否かを確認したいと考えております。 今のところ dim RS As DAO.Recordset2 set RS = CurrentDb.OpenRecordset( http://mevius.5ch.net/test/read.cgi/tech/1328536426/552
553: デフォルトの名無しさん [sage] 2016/01/20(水) 21:13:28.67 ID:b2HKKJl2 すみません、途切れました set RS = CurrentDb.OpenRecordset("テーブルA") With RS .FindFirst "id = ○" End With で任意のIDに移動できるのですが、そこから写真フィールドにデータが入っているか否かをどのように確認したら良いかが分かりません。 一応複数値を持つフィールドということから Dim RS_写真 As DAO.Recordset2 Set RS_写真 = RS.Fields("写真").Value と代入し、 If RS_写真.Fields("FileName") = "&
quot; Then MsgBox "hoge" End If というように、if分を使ってみたのですが、上手く行きません。 お忙しいところ恐縮ですが、アドバイスを戴けると幸いです。 http://mevius.5ch.net/test/read.cgi/tech/1328536426/553
554: デフォルトの名無しさん [sage] 2016/01/21(木) 00:33:33.20 ID:eWUPCZWU 添付ファイルで複数値を持つフィールド ってのがよくわからん そのフィールドのデータ型と 実際に内容をセットしてるコード出してみ http://mevius.5ch.net/test/read.cgi/tech/1328536426/554
555: デフォルトの名無しさん [sage] 2016/01/21(木) 07:45:42.44 ID:7TL6zMKQ >>554 お返事ありがとうございます。 TABLEAのフィールド"写真"にデータをセットするのはフォーム上で行っております。 MsgBox TypeName(.Fields("写真")) で確認をしてみたところ、 Field2 オブジェクト (DAO) ttps://msdn.microsoft.com/ja-jp/library/office/ff194326.aspx と返ってきました。 これで伝わりますでしょうか？ http://mevius.5ch.net/test/read.cgi/tech/1328536426/555
556: デフォルトの名無しさん [sage] 2016/01/21(木) 12:58:17.49 ID:zpe1QHZ3 伝わったが答える気にはならなかった http://mevius.5ch.net/test/read.cgi/tech/1328536426/556
557: デフォルトの名無しさん [sage] 2016/01/21(木) 13:50:34.34 ID:tpiDrCnM テーブルAのあるレコードでは【写真】に外部からデータが入っていて，違うレコードでは入っていないから，それを確認したいということ？ RS_写真のeofとbofを調べれば良いだけだと思う． ttps://msdn.microsoft.com/ja-jp/library/office/ff194326.aspx ここにサンプルが有るから頑張って http://mevius.5ch.net/test/read.cgi/tech/1328536426/557
558: デフォルトの名無しさん [sage] 2016/01/21(木) 15:33:43.41 ID:zpe1QHZ3 これはひどい http://mevius.5ch.net/test/read.cgi/tech/1328536426/558
559: デフォルトの名無しさん [sage] 2016/01/21(木) 18:39:11.58 ID:eWUPCZWU >>555 そのテーブルをデザインビューで開いたときに、そのフィールのデータ型は何になってる？ フォームでセットとは具体的にどうやってるんだ？ http://mevius.5ch.net/test/read.cgi/tech/1328536426/559
560: デフォルトの名無しさん [sage] 2016/01/21(木) 19:53:25.15 ID:dhgW0ru6 添付ファイル型っていうのがあってだな云々・・・ http://mevius.5ch.net/test/read.cgi/tech/1328536426/560
561: デフォルトの名無しさん [] 2016/01/21(木) 20:32:40.23 ID:xJzWoKjV > If RS_写真.Fields("FileName") = "" Then FileData? データが入ってたらFileNameとは何を指すのだ http://mevius.5ch.net/test/read.cgi/tech/1328536426/561
562: デフォルトの名無しさん [sage] 2016/01/21(木) 20:50:12.31 ID:dhgW0ru6 フィールドに複数データが入るんだけど、ファイル名とファイル本体がセットになって入るイメージなんじゃないかな。 >>553 は配列のような捉え方で書いてるんだと思う。 フィールドがnullなのかを見ればいいんだろうけど、ファイル名を指定してそのファイル本体の有無を見たいのかな。 でもそれだとファイル名のみがあってファイル本体がないってことがあり得ることが前提になると思うんだけど。 http://mevius.5ch.net/test/read.cgi/tech/1328536426/562
563: デフォルトの名無しさん [sage] 2016/01/21(木) 21:21:29.71 ID:eWUPCZWU 添付ファイル型なら RS_写真のEOFと(MoveLastしてから)RecordCountみれば、添付されてるファイルの件数はわかる http://mevius.5ch.net/test/read.cgi/tech/1328536426/563
564: 553 [sage] 2016/01/22(金) 16:35:45.14 ID:FxZxO26V 皆様、お返事ありがとうございます。 当該フィールドは「添付ファイル」型です。 「添付ファイル」型の写真フィールドは、下位フィールド？として写真.FileData / 写真.FileName / 写真.FileTypeを持っているため、写真.FileNameの有無でNULLか否かを確認しようとしていました。 >>557 さんと >>563 さんのお陰でNULLか否かはRS_写真のEOFを見れば良いだけと気づき、 何とかやりたい操作ができそうです。 この度はご指摘戴き、誠にありがとうございました。 http://mevius.5
ch.net/test/read.cgi/tech/1328536426/564
565: デフォルトの名無しさん [sage] 2016/01/28(木) 08:27:25.34 ID:cOsSJrMS Access2010のVBAの動作にて質問です。 現在クエリのデータをCSV形式にて出力をするために DoCmd.TransferText acExportDelim, , http://mevius.5ch.net/test/read.cgi/tech/1328536426/565
566: デフォルトの名無しさん [sage] 2016/01/28(木) 09:02:23.84 ID:cOsSJrMS 途中で切れてしまったので再度質問させていただきます。 Access2010のVBAの動作にて質問です。 現在クエリのデータをCSV形式にて出力をするために DoCmd.TransferText acExportDelim, ,"クエリ名","出力先\ファイル名.csv" と言う文を使っているのですが、クエリの行が複数の場合は1行ごとに出力をしたいのですがどうすればよろしいのでしょうか。 http://mevius.5ch.net/test/read.cgi/tech/1328536426/566
567: デフォルトの名無しさん [sage] 2016/01/28(木) 09:25:27.95 ID:xQdz3S4b >>566 連続出力するなら レコードセット開いてレコード毎に書き出しループ 連続出力しないなら フォーム上の値を参照するパラメータクエリ作って DoCmd.TransferTextで書き出し http://mevius.5ch.net/test/read.cgi/tech/1328536426/567
568: デフォルトの名無しさん [] 2016/02/01(月) 21:40:46.53 ID:uqBwC27M ACCESS VBAでoracleのデータを読み書きする場合は リンクテーブルを作ってやるのが普通でしょうか? それともリンクせずに直接ORACLEにアクセスするのがよいでしょうか? http://mevius.5ch.net/test/read.cgi/tech/1328536426/568
569: デフォルトの名無しさん [sage] 2016/02/01(月) 22:12:10.32 ID:HIlaIvm8 べつにSQL ServerでもORACLEでも同じだとおもうけど ケースバイケースとしか言えん http://mevius.5ch.net/test/read.cgi/tech/1328536426/569
570: デフォルトの名無しさん [sage] 2016/02/02(火) 09:04:52.93 ID:nmsl1byO リンク使わないなら別にAccessじゃなくても良いよね、って回答はダメ？ http://mevius.5ch.net/test/read.cgi/tech/1328536426/570
571: デフォルトの名無しさん [] 2016/02/02(火) 10:25:44.88 ID:OPpL3JBW ハマってしまいました、cell とoffsetとloopの関係が解明できません。 エクセルデータから一行ずつhtmlファイルを作成するということをしたいです。 minitemplatorを使っています。 試しに３行でつくってみるとファイル名は変わるのですが、 set変数の箇所が一行目のままかわりません。 ↓こんなVBAにしてあります Private Const START_CELL = http://mevius.5ch.net/test/read.cgi/tech/1328536426/571
572: デフォルトの名無しさん [] 2016/02/02(火) 10:28:02.77 ID:OPpL3JBW すみません Private Const START_CELL = "T3" Public Sub PushButton() ' Dim Cell As Range Dim Temp As MiniTemplator Set Temp = New MiniTemplator 'テンプレートファイルを読み込みます。 Temp.ReadTemplateFromFile ThisWorkbook.Path & "\h00_0.html" 'セルのスタート位置を設定します。 Set Cell = Range(START_CELL) '現在アクティブになっているシートの最終行まで以下を繰り返します。 Do While Cell.Row <= ActiveSheet.UsedRange.R
ows(ActiveSheet.UsedRange.Rows.Count).Row Temp.SetVariable "TITLE", Cell.Offset(0, 1).Value Temp.SetVariable "CHAPTER", Cell.Offset(0, 2).Value Temp.SetVariable "PREVCHAPTER", Cell.Offset(0, 3).Value Temp.SetVariable "PREVPAGE", Cell.Offset(0, 4).Value Temp.SetVariable "INDEX", Cell.Offset(0, 5).Value Temp.SetVariable "NEXTPAGE", Cell.Offset(0, 6).Value Temp.SetVariable "NEXTCHAPTER", Cell.Offset(0, 7).Value Temp.AddBlock "htmls&quo
t; Temp.GenerateOutputToFile ThisWorkbook.Path & "\" & Cell & ".html" Set Cell = Cell.Offset(1, 0) Loop End Sub http://mevius.5ch.net/test/read.cgi/tech/1328536426/572
573: 571 [sage] 2016/02/02(火) 10:30:04.88 ID:OPpL3JBW 申し訳ない！accessの方に書き込んでしまいました、excelの方へ移動いたしますorz http://mevius.5ch.net/test/read.cgi/tech/1328536426/573
574: デフォルトの名無しさん [sage] 2016/02/02(火) 15:13:01.55 ID:ml14fhOB >>570 メインのDBはSQLServerやACCDBだけど、特定のデータだけ 別DBのORACLEからとって来たいなんて要件だったりしたら ORACLEにリンクテーブル作るほどでは無かったりするかもしれんだろ http://mevius.5ch.net/test/read.cgi/tech/1328536426/574
575: デフォルトの名無しさん [] 2016/02/02(火) 15:27:20.80 ID:chGMw9p3 これはひどい http://mevius.5ch.net/test/read.cgi/tech/1328536426/575
576: デフォルトの名無しさん [sage] 2016/02/02(火) 17:32:28.26 ID:nmsl1byO >>574 質問者の質問内容は>>568ですよ〜 http://mevius.5ch.net/test/read.cgi/tech/1328536426/576
577: デフォルトの名無しさん [sage] 2016/02/02(火) 19:38:08.47 ID:ml14fhOB >>576 何が言いたいのかわからん リンクテーブルかそれ以外でのアクセスかって質問に対して ACCCESSならリンクテーブル一択だろ、見たいな事を言うから そうじゃない状況もあるだろって言ってるんだが http://mevius.5ch.net/test/read.cgi/tech/1328536426/577
578: デフォルトの名無しさん [sage] 2016/02/02(火) 22:01:22.04 ID:nmsl1byO >>577 質問者はOracleをAccessから操作する場合はどちらかを聞いている訳で その状況ならリンクで良いんじゃね、と答えただけ そこにお宅が勘違いして質問にないSQL Server絡めて否定してきたから ちゃんと質問内容見ろよ、と返しただけ http://mevius.5ch.net/test/read.cgi/tech/1328536426/578
579: デフォルトの名無しさん [sage] 2016/02/03(水) 16:11:02.04 ID:/VnwDmrp 両成敗 http://mevius.5ch.net/test/read.cgi/tech/1328536426/579
580: デフォルトの名無しさん [sage] 2016/02/04(木) 08:30:21.82 ID:aSn7db66 >>579 うるせぇよ、顔面男性器 http://mevius.5ch.net/test/read.cgi/tech/1328536426/580
581: デフォルトの名無しさん [sage] 2016/02/04(木) 15:29:20.74 ID:oKzBZVFr >>580 うん http://mevius.5ch.net/test/read.cgi/tech/1328536426/581
582: デフォルトの名無しさん [sage] 2016/02/07(日) 19:26:30.89 ID:PcQYM9su Accessでエクセルファイル読もうと思ってExcelオブジェクトを作成した時、 既にエクセルを立ち上げているとマクロの挙動がおかしくなったり、 あるいは後からエクセルを立ち上げようとするとマクロが終了するまで画面が白いままなのですが、 これを避けてAccess側のみで扱えるエクセルオブジェクトを作ったり、あるいはエクセルと併用したりという事は出来ないでしょうか？ スプレッドシートのインポートは暗号化の影響で上手くいかないので、エクセルオブジェクトを通
す必要があります。 http://mevius.5ch.net/test/read.cgi/tech/1328536426/582
583: デフォルトの名無しさん [sage] 2016/02/08(月) 15:38:17.85 ID:qbvivMLd >>582 できるよ http://mevius.5ch.net/test/read.cgi/tech/1328536426/583
584: デフォルトの名無しさん [sage] 2016/02/08(月) 18:15:52.92 ID:V9YCd2yR つか普通にやればそうなってたと思ったけど CreateObjectって、インスタンスあったらそれ掴んで返すのか？ http://mevius.5ch.net/test/read.cgi/tech/1328536426/584
585: デフォルトの名無しさん [] 2016/02/10(水) 00:18:50.90 ID:SmKUXNow vbaでも知りたいのですが、accessで列見出しを行見出しにするには、どんなコードを書けばいいでしょうか？クロス集計ではできませんでした。 http://mevius.5ch.net/test/read.cgi/tech/1328536426/585
586: デフォルトの名無しさん [sage] 2016/02/10(水) 09:07:48.34 ID:FkM1RfeE >>585 行列入替えがしたいっての？それ、データベースのルールに反してる わけだが。 クロス集計クエリの場合にはデータ元がきちんとクロス集計できる形に なっていれば、できないということはない。 http://mevius.5ch.net/test/read.cgi/tech/1328536426/586
587: デフォルトの名無しさん [] 2016/02/22(月) 10:46:47.09 ID:4/RFA0DI 金はあるけど時間がない 経験値100倍くらいになる課金ないんか http://mevius.5ch.net/test/read.cgi/tech/1328536426/587
588: デフォルトの名無しさん [sage] 2016/02/22(月) 10:47:20.99 ID:4/RFA0DI すまん 誤爆った http://mevius.5ch.net/test/read.cgi/tech/1328536426/588
589: デフォルトの名無しさん [sage] 2016/02/22(月) 12:20:31.39 ID:Y1bHL8fN >>587 それな http://mevius.5ch.net/test/read.cgi/tech/1328536426/589
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 413 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.017s