Excel VBA 質問スレ Part63

1 名前：デフォルトの名無しさん mailto:sage [2019/09/16(月) 19:34:59.04 ID:emfTAhXr0.net] !extend:checked:vvvvv:1000:512 ExcelのVBAに関する質問スレです コード書き込みや作成依頼もOK ※前スレ Excel VBA 質問スレ Part62 https://mevius.5ch.net/test/read.cgi/tech/1561303297/ VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured 2 名前：デフォルトの名無しさん mailto:sage [2019/09/16(月) 19:37:44.33 ID:oeAiWNxe0.net] ぽこちん 3 名前：デフォルトの名無しさん mailto:sage [2019/09/16(月) 20:59:24.42 ID:dQXELjkB0.net] ちんぽこ 4 名前：デフォルトの名無しさん mailto:sage [2019/09/16(月) 21:35:06.62 ID:umLXld9Q0.net] おつちん 5 名前：デフォルトの名無しさん mailto:sage [2019/09/16(月) 21:37:35.26 ID:+LXKkUCe0.net] 糞レスで埋めるなら前スレのCSVファイルをQueryTablesで読むサンプル残しとく超参考になった 967 デフォルトの名無しさん (ﾜｯﾁｮｲ 1fce-Nl8y) sage ▼ New! 2019/09/13(金) 00:48:49.27 ID:VS8vqVEc0 [1回目] 文字列として読み込めば0は消えない あとLineInputよりクエリのがずっと速い サンプル Sub CSVread() 　　With Worksheets("Sheet1")　'読み込むシート 　　With .QueryTables.Add(Connection:="TEXT;C:\tmp\test.csv", Destination:=.Range("A1"))　'ファイル名とセル位置 　　　　.TextFilePlatform = 932　'文字コード指定 　　　　.TextFileCommaDelimiter = True　'カンマ区切り指定 　　　　.RefreshStyle = xlOverwriteCells　'セルに上書き 　　　　.TextFileColumnDataTypes = Array(xlTextFormat, xlTextFormat, xlTextFormat)　'各列を文字列に指定 　　　　.Refresh　'シートに読み込んで表示 　　　　.Delete　'クエリを切断 　　End With 　　End With End Sub 6 名前：デフォルトの名無しさん mailto:sage [2019/09/16(月) 21:50:00.95 ID:oeAiWNxe0.net] ぽこちん 7 名前：デフォルトの名無しさん [2019/09/16(月) 22:04:26.30 ID:mBMfeEcT0.net] 全部丸投げの教えてクレクレは死ね 8 名前：デフォルトの名無しさん mailto:sage [2019/09/17(火) 00:12:51.48 ID:QL/1GsWjx.net] LongLong型に定数値として4,294,967,296を与えておきたいのですがLongの範囲を超えているせいか、必ず後ろに#が付いてしまいます 用途としては強引にunsigned Long的に使う為のオフセットなのですが#を付けない方法はありますか？ 9 名前：デフォルトの名無しさん mailto:sage [2019/09/17(火) 00:26:07.74 ID:dEY9k2Om0.net] Verylong型 10 名前：デフォルトの名無しさん mailto:sage [2019/09/17(火) 01:14:04.05 ID:chWRxzLY0.net] ちんぽこ 11 名前：デフォルトの名無しさん mailto:sage [2019/09/17(火) 05:14:20.51 ID:x3oFyaLA0.net] >>8 式は書けないんだったっけ… 12 名前：デフォルトの名無しさん mailto:sage [2019/09/17(火) 12:34:56.30 ID:WreyM4md0.net] LongPtr 13 名前：デフォルトの名無しさん mailto:sage [2019/09/17(火) 19:25:37.80 ID:gAW2iwiH0.net] 前スレの最後でセルに色をつけるコードを作って頂いた者です。職場で試してみましたが思い描いた通りに動いてくれました！これを機に自分で作れるように勉強したいと思います。作って下さった方、本当にありがとうございました…！ 14 名前：デフォルトの名無しさん mailto:sage [2019/09/17(火) 19:44:50.07 ID:1jOFcYgS0.net] ぽこちん 15 名前：デフォルトの名無しさん mailto:sage [2019/09/17(火) 22:00:10.80 ID:g2VoYh6px.net] スレチなのは分かってるけど詳しい人がここにしかいなさそうだから、もし知っていたら教えてほしい ブックに保存されたクエリをOLAP等で使い回すためにODCファイルとしてエクスポートしたいんだが、「既存の接続」コマンドからクエリのプロパティを開いても「接続のエクスポート」のボタンが無効になっていてうまくエクスポート出来ない どうしたらうまくエクスポートできるのか知りたい 16 名前：デフォルトの名無しさん mailto:sage [2019/09/18(水) 00:53:52.38 ID:2k/sPvaQ0.net] 珍ぽこりん 17 名前：デフォルトの名無しさん [2019/09/18(水) 02:08:49.51 ID:IoDIi0WV0.net] すみません。 エラーが分からず・・・教えてください。 下記コードで、”型が一致しません”というエラーが出ています。 Dim Ringi1 As Worksheet ThisWorkbook.Activate Set Ringi1 = Workbooks(Range("B6")).Worksheet("Sheet1")　　←エラー ThisworkbookのB6には”テストファイル.xlsx”が入っています。 よろしくお願いします。 18 名前：デフォルトの名無しさん mailto:sage [2019/09/18(水) 02:37:53.20 ID:6F01cvXOx.net] >>17 Worksheet(Range("B6"))じゃなくてWorksheets(Range("B6").Value)でしょう あとRange("B6")はどのシートのB6セルなのかな？ この書き方だとThisWorkbookがActivateされたときにアクティブになってるシートのB6セルが参照されてしまうので、ちゃんとシートを指定して書いたらどうかな 例えばThisWorkbookの一番目のシートのB6セルにファイル名が書かれている前提ならこうなる Dim Ringi1 As Worksheet ThisWorkbook.Activate Set Ringi1 = Application.Workbooks(ThisWorkbook.Worksheets(1).Range("B6").Value).Worksheets("Sheet1") 19 名前：デフォルトの名無しさん mailto:sage [2019/09/18(水) 06:35:56.16 ID:2k/sPvaQ0.net] ポコポコてぃんてぃむ 20 名前：デフォルトの名無しさん mailto:sage [2019/09/18(水) 07:18:06.31 ID:Sjvl4q9oM.net] >>8 つけないのは無理だったと思う 今スマホだから試せないけど # が嫌というだけなら ^ ではどうかな？ https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/longlong-data-type

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef