[過去ﾛｸﾞ] Excel VBA 質問スレ Part68 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
746: (ｱｳｱｳｳｰ Sa9d-YFxM) 2020/11/03(火)15:03 ID:Wl8qkqc+a(1) AAS
いつもの人でしょ
747: (ﾜｯﾁｮｲ 69e5-Iouh) 2020/11/03(火)22:04 ID:DcyztcMU0(1) AAS
クラスが便利なのは分かっているんだが、難しくてやる気なくしてたんだけど
ユーザー定義型Typeね、アレすげえな
バカなオレでもプログラミングしている気分にさせてくれるくらい簡単
748: (ﾜｯﾁｮｲ 655f-U72L) 2020/11/04(水)06:49 ID:dR//5Nki0(1) AAS
おれもクラスを調べてるけど要はオブジェクトを自分で作り出せるというところまでは分かった
749(2): (ﾜｯﾁｮｲ 8101-L1wp) 2020/11/04(水)18:04 ID:H6E0ixtH0(1) AAS
>>745
おそらく4macroで使える程度の関数群は外部参照で元ファイル開かなくても参照できる
どんなデータを集計したいかしらんけどただ値を取得したいだけならブック開く必要ないよ（裏では開いてるけど）
一方最近の関数使ってるなら安全のためにブック開いてたほうがいい
DB接続ってのはエクセルファイルにDB接続できないから意味ないだろうね
750: (ﾜｯﾁｮｲ b57c-B5oV) 2020/11/04(水)19:12 ID:LUbnrRil0(1) AAS
できることしか言ってないよ
751(1): (ﾜｯﾁｮｲ 5e8e-JaP7) 2020/11/04(水)20:01 ID:YMXq55HT0(1) AAS
>>749
db接続できないと思ってるような人はコメントしなければいいのに
752(1): (ﾜｯﾁｮｲ a9da-t1Nk) 2020/11/04(水)20:42 ID:iJjhODSM0(1/3) AAS
>>749
ジェットでインストール可能なイサムすればつながるだろうが!
753: (ﾜｯﾁｮｲ 92b5-FW0W) 2020/11/04(水)21:07 ID:+u5LkCAg0(1/4) AAS
txtデータをダイアログから開いた時に
元のxlsmにあるテンプレというシートを
毎回そのブック内の右側に添付したいんですが
御教授お願いします。。
毎回txtデータの名前は異なります。
なかなか調べてもわかりません
754(1): (ﾜｯﾁｮｲ a9da-t1Nk) 2020/11/04(水)21:12 ID:iJjhODSM0(2/3) AAS
よくわからんが、単純に If right(filename, 4) = ".txt" Then じゃダメなんかい
755(1): (ﾜｯﾁｮｲ 92b5-FW0W) 2020/11/04(水)21:32 ID:+u5LkCAg0(2/4) AAS
>>754
初心者で理解できてなくてすみません
色々サイトを検索はしたのですが
Sub テキストを読み込む() Dim TARGET_TEXT_FILE As String
ChDir "C:\テキストデータフォルダ"
TARGET_TEXT_FILE = Application.GetOpenFilename("テキストファイル,*.txt")
If TARGET_TEXT_FILE = "False" Then Exit Sub Workbooks.OpenText TARGET_TEXT_FILE End Sub
今のところこれでテキスト開いてるだけなんですが
全く変えた方がいいですか？
これで開いた新ブック全てに元々あるテンプレというシートを添付させたいのですが
省1
756: (ﾜｯﾁｮｲ 92b5-FW0W) 2020/11/04(水)22:21 ID:+u5LkCAg0(3/4) AAS
結構片っ端からヒットしたサイト調べてますが答えがあるのかもしれないのですがなかなか知恵が出てこず…どなたかお助け頂ければと
757(1): (ﾜｯﾁｮｲ a9da-t1Nk) 2020/11/04(水)22:28 ID:iJjhODSM0(3/3) AAS
開いた後にこうかな?
ThisWorkbook.Worksheets("テンプレ").Copy , Workbooks(Dir(TARGET_TEXT_FILE)).Sheets(1)
758(1): (ｽｯﾌﾟ Sd12-ZPmU) 2020/11/04(水)22:41 ID:4kHESo6md(1) AAS
>>755
Dim tsh As WorkSheet
Set tsh = ThisWorkBook.Worksheets(″テンプレ″)
としておいて、
テキストファイルをオープンした後に
tsh.copy
ActiveWorkbook.insert
とかなんとかできないかね
759(1): (ﾜｯﾁｮｲ 92b5-FW0W) 2020/11/04(水)23:45 ID:+u5LkCAg0(4/4) AAS
>>757
>>758
お二方、本当にありがとうございます。
いまホテルでPCが無い環境になってしまったので
また試させていただきます。
もし上手く動かなくても勉強にさせてもらいます。本当に感謝します。
760: (ｽﾌﾟﾌﾟ Sdb2-ErlH) 2020/11/05(木)00:34 ID:Hf0k6gxcd(1) AAS
初心者、勉強中って設定でくれくれするスタイル
761: (ﾜﾝﾄﾝｷﾝ MM62-BMuU) 2020/11/05(木)00:55 ID:E/zWC4JEM(1/2) AAS
ID:+u5LkCAg0
いつものあいつだろ
762(1): (ﾜｯﾁｮｲ d2e6-DMUe) 2020/11/05(木)01:18 ID:MmJj0qw00(1) AAS
わざわざこんなとこで聞くよりググったほうが早いからな
ただのかまってちゃんだ
763: (ｽｯｯﾌﾟ Sdb2-JaP7) 2020/11/05(木)01:33 ID:wTkbtAOfd(1) AAS
>>762
意味もわからずコピペするだけの馬鹿だから無理なのだろ
764: (ﾜｯﾁｮｲ 5e8e-BMuU) 2020/11/05(木)01:37 ID:eUwwuQR20(1/2) AAS
>>759
死ね
765(2): (ﾜｯﾁｮｲ 8101-L1wp) 2020/11/05(木)13:00 ID:OVMdlSXB0(1) AAS
>>751
>>752
直じゃなくて一旦DB化（一括インポート）しなきゃなんねえの
Jet.OLEDB,ACE.OLEDB,SQL Server,Power Query
外部DBが使えるならなんでもええがな
こいつら通さずエクセルに直にSQL送ったところで何も帰ってこないよ
さらにいうとエクセルファイルにDBアクセス中にエクセルファイル書き換えると整合性が取れなくなる
別物をかましてるんだからエクセル同志でDB接続とは言えんだろ
上下前次1-新書関写板覧索設栞歴
あと 237 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.011s