[過去ログ] Excel VBA 質問スレ Part63 (1002レス)
1-

このスレッドは過去ログ倉庫に格納されています。
次スレ検索 歴削→次スレ 栞削→次スレ 過去ログメニュー
1
(1): (ワッチョイ d3d0-EPXH) 2019/09/16(月)19:34 ID:emfTAhXr0(1) AAS
!extend:checked:vvvvv:1000:512

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

※前スレ
Excel VBA 質問スレ Part62
2chスレ:tech VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured
2: (ワッチョイ 9f01-hFMq) 2019/09/16(月)19:37 ID:oeAiWNxe0(1/2) AAS
ぽこちん
3
(1): (ワッチョイ 7f01-bRiQ) 2019/09/16(月)20:59 ID:dQXELjkB0(1) AAS
ちんぽこ
4: (ワッチョイ fff7-uS//) 2019/09/16(月)21:35 ID:umLXld9Q0(1) AAS
おつちん
5
(1): (ワッチョイ 7f79-j7/x) 2019/09/16(月)21:37 ID:+LXKkUCe0(1) AAS
糞レスで埋めるなら前スレの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 'カンマ区切り指定
省7
6: (ワッチョイ 9f01-hFMq) 2019/09/16(月)21:50 ID:oeAiWNxe0(2/2) AAS
ぽこちん
7: (ワッチョイ 9f8e-J3NS) 2019/09/16(月)22:04 ID:mBMfeEcT0(1) AAS
全部丸投げの教えてクレクレは死ね
8
(2): (アークセー Sx73-Pq6P) 2019/09/17(火)00:12 ID:QL/1GsWjx(1) AAS
LongLong型に定数値として4,294,967,296を与えておきたいのですがLongの範囲を超えているせいか、必ず後ろに#が付いてしまいます
用途としては強引にunsigned Long的に使う為のオフセットなのですが#を付けない方法はありますか?
9: (ワッチョイ 7f59-yzII) 2019/09/17(火)00:26 ID:dEY9k2Om0(1) AAS
Verylong型
10: (ワッチョイ 7f01-bRiQ) 2019/09/17(火)01:14 ID:chWRxzLY0(1) AAS
ちんぽこ
11: (ワッチョイ 9f01-NvLc) 2019/09/17(火)05:14 ID:x3oFyaLA0(1) AAS
>>8
式は書けないんだったっけ…
12: (ワッチョイ 7fb1-VJtK) 2019/09/17(火)12:34 ID:WreyM4md0(1) AAS
LongPtr
13: (ワッチョイ 9f01-KBBU) 2019/09/17(火)19:25 ID:gAW2iwiH0(1) AAS
前スレの最後でセルに色をつけるコードを作って頂いた者です。職場で試してみましたが思い描いた通りに動いてくれました!これを機に自分で作れるように勉強したいと思います。作って下さった方、本当にありがとうございました…!
14: (ワッチョイ 9f01-hFMq) 2019/09/17(火)19:44 ID:1jOFcYgS0(1) AAS
ぽこちん
15: (アークセー Sx73-CIVR) 2019/09/17(火)22:00 ID:g2VoYh6px(1) AAS
スレチなのは分かってるけど詳しい人がここにしかいなさそうだから、もし知っていたら教えてほしい

ブックに保存されたクエリをOLAP等で使い回すためにODCファイルとしてエクスポートしたいんだが、「既存の接続」コマンドからクエリのプロパティを開いても「接続のエクスポート」のボタンが無効になっていてうまくエクスポート出来ない
どうしたらうまくエクスポートできるのか知りたい
16: (ワッチョイ 9f01-hFMq) 2019/09/18(水)00:53 ID:2k/sPvaQ0(1/3) AAS
珍ぽこりん
17
(1): (ワッチョイ 9f64-+dKN) 2019/09/18(水)02:08 ID:IoDIi0WV0(1) AAS
すみません。
エラーが分からず・・・教えてください。

下記コードで、”型が一致しません”というエラーが出ています。

Dim Ringi1 As Worksheet
ThisWorkbook.Activate
Set Ringi1 = Workbooks(Range("B6")).Worksheet("Sheet1")  ←エラー

ThisworkbookのB6には”テストファイル.xlsx”が入っています。

よろしくお願いします。
18
(1): (アークセー Sx73-CIVR) 2019/09/18(水)02:37 ID:6F01cvXOx(1) AAS
>>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: (ワッチョイ 9f01-hFMq) 2019/09/18(水)06:35 ID:2k/sPvaQ0(2/3) AAS
ポコポコてぃんてぃむ
20: (ドコグロ MM23-hFMq) 2019/09/18(水)07:18 ID:Sjvl4q9oM(1) AAS
>>8
つけないのは無理だったと思う
今スマホだから試せないけど # が嫌というだけなら ^ ではどうかな?
https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/longlong-data-type
1-
あと 982 レスあります
スレ情報 赤レス抽出 画像レス抽出 歴の未読スレ AAサムネイル

ぬこの手 ぬこTOP 0.273s*