[過去ﾛｸﾞ] VBAなんでも質問スレ Part2 [転載禁止]©2ch.net (1002ﾚｽ)

VBAなんでも質問スレ Part2 [転載禁止]©2ch.net http://mevius.5ch.net/test/read.cgi/tech/1432173164/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

675: デフォルトの名無しさん [] 2018/12/26(水) 21:53:30.63 ID:KrpjpPkw VBA初心者です。少し長くなってしまいますが質問です。 ・やりたいこと １：現マクロ有効ブックのsheet1にフォームボタン設置する。 ２：押すとC:\Users\Public\動物まとめ.xlsx　をバックグラウンドで開き、その中のシート名"カピバラ情報"の E列4行目から5行目6行目...と、空白が来るまでの情報を取得しする。 ３：現マクロ有効ブックに新しくsheet2を作り、その新シートのA1からA2A3...に取得した情報を書き込む。 現在のマクロは下記ですが上手くいかないです。 Option Explicit Sub practice() Dim i As Long 　　　 i = 4 Dim fullPass As String 'セルのB3に　C:\Users\Public\動物まとめ.xlsxと記述 fullPass = Range("B3") Dim wb As Workbook Dim Anothersheet As Worksheet Workbooks.Open fullPass Set Anothersheet = wb.Worksheets("カピバラ情報") Sheets.Add After:=ActiveSheet Range("A1").Select Do While Cells(5, i).Value <> "" 　i = i + 1 Loop Call wb.Close End Sub 上手く情報を取得できないのでアドバイスお願いします。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/675

---

ﾒﾓ帳

(0/65535文字)

---

上下前次1-新書関写板覧索設栞歴

---

あと 327 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.027s