19/09/16 19:34:59.04 emfTAhXr0.net
!extend:checked:vvvvv:1000:512
ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK
※前スレ
Excel VBA 質問スレ Part62
ｽﾚﾘﾝｸ(tech板)
VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured
2:デフォルトの名無しさん
19/09/16 19:37:44.33 oeAiWNxe0.net
ぽこちん
3:デフォルトの名無しさん
19/09/16 20:59:24.42 dQXELjkB0.net
ちんぽこ
4:デフォルトの名無しさん
19/09/16 21:35:06.62 umLXld9Q0.net
おつちん
5:デフォルトの名無しさん
19/09/16 21:37:35.26 +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:デフォルトの名無しさん
19/09/16 21:50:00.95 oeAiWNxe0.net
ぽこちん
7:デフォルトの名無しさん
19/09/16 22:04:26.30 mBMfeEcT0.net
全部丸投げの教えてクレクレは死ね
8:デフォルトの名無しさん
19/09/17 00:12:51.48 QL/1GsWjx.net
LongLong型に定数値として4,294,967,296を与えておきたいのですがLongの範囲を超えているせいか、必ず後ろに#が付いてしまいます
用途としては強引にunsigned Long的に使う為のオフセットなのですが#を付けない方法はありますか？
9:デフォルトの名無しさん
19/09/17 00:26:07.74 dEY9k2Om0.net
Verylong型
10:デフォルトの名無しさん
19/09/17 01:14:04.05 chWRxzLY0.net
ちんぽこ
11:デフォルトの名無しさん
19/09/17 05:14:20.51 x3oFyaLA0.net
>>8
式は書けないんだったっけ…
12:デフォルトの名無しさん
19/09/17 12:34:56.30 WreyM4md0.net
LongPtr
13:デフォルトの名無しさん
19/09/17 19:25:37.80 gAW2iwiH0.net
前スレの最後でセルに色をつけるコードを作って頂いた者です。職場で試してみましたが思い描いた通りに動いてくれました！これを機に自分で作れるように勉強したいと思います。作って下さった方、本当にありがとうございました…！
14:デフォルトの名無しさん
19/09/17 19:44:50.07 1jOFcYgS0.net
ぽこちん
15:デフォルトの名無しさん
19/09/17 22:00:10.80 g2VoYh6px.net
スレチなのは分かってるけど詳しい人がここにしかいなさそうだから、もし知っていたら教えてほしい
ブックに保存されたクエリをOLAP等で使い回すためにODCファイルとしてエクスポートしたいんだが、「既存の接続」コマンドからクエリのプロパティを開いても「接続のエクスポート」のボタンが無効になっていてうまくエクスポート出来ない
どうしたらうまくエクスポートできるのか知りたい
16:デフォルトの名無しさん
19/09/18 00:53:52.38 2k/sPvaQ0.net
珍ぽこりん
17:デフォルトの名無しさん
19/09/18 02:08:49.51 IoDIi0WV0.net
すみません。
エラーが分からず・・・教えてください。
下記コードで、”型が一致しません”というエラーが出ています。
Dim Ringi1 As Worksheet
ThisWorkbook.Activate
Set Ringi1 = Workbooks(Range("B6")).Worksheet("Sheet1") ←エラー
ThisworkbookのB6には”テストファイル.xlsx”が入っています。
よろしくお願いします。
18:デフォルトの名無しさん
19/09/18 02:37:53.20 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:デフォルトの名無しさん
19/09/18 06:35:56.16 2k/sPvaQ0.net
ポコポコてぃんてぃむ
20:デフォルトの名無しさん
19/09/18 07:18:06.31 Sjvl4q9oM.net
>>8
つけないのは無理だったと思う
今スマホだから試せないけど # が嫌というだけなら ^ ではどうかな？
URLﾘﾝｸ(docs.microsoft.com)