[過去ﾛｸﾞ] Excel VBA 質問スレ Part68 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
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接続とは言えんだろ
766: (ﾜｯﾁｮｲ 5e8e-JaP7) 2020/11/05(木)13:45 ID:eUwwuQR20(2/2) AAS
>>765
黙っていればいいのに
767: (ﾜﾝﾄﾝｷﾝ MM62-BMuU) 2020/11/05(木)17:33 ID:E/zWC4JEM(2/2) AAS
ODBC全否定の馬鹿がいる
768: (ﾜｯﾁｮｲ 3162-cN9R) 2020/11/05(木)18:57 ID:hU6fY/MX0(1) AAS
凄く初歩的な質問ですいません。
VbaでEDGEを操作することは可能ですか？
可能ならIEで使っていたコードは使えるんでしょうか？
769: (ﾜｯﾁｮｲ a9da-t1Nk) 2020/11/05(木)19:50 ID:SbS9cEmY0(1) AAS
>>765
ただの屁理屈だそんなもん
ADOだのMSクエリ前提で話しているに決まってるだろうが
パソコンでテレビを見るには、チューナを外付けしないといけないから、
パソコンでテレビを見られるとは言えない、とか言ってるようなものだぞ。
770: (ﾜｯﾁｮｲ 0dad-O7hR) 2020/11/05(木)19:55 ID:f0srNcEJ0(1) AAS
それは見られるとは言えなくないかな
771: (ﾜｯﾁｮｲ 31b3-/lBW) 2020/11/06(金)08:21 ID:aBeRil+I0(1) AAS
いつものあいつって、最初はものすごく下手に出ておいて、希望した回答が得られないと態度が豹変するあいつ？
772: (ﾜｯﾁｮｲ d901-QVGU) 2020/11/06(金)08:41 ID:OISZDae80(1) AAS
元管理職の失業組だろ
773(1): (ｽﾌﾟﾌﾟ Sdb2-7nA7) 2020/11/07(土)18:11 ID:6yLRlRLnd(1) AAS
VBAで業務の効率化ってさ
そもそもその会社の業務自体に無駄があるってことなんじゃないかと思う
上下前次1-新書関写板覧索設栞歴
あと 229 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.019s