Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

97 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【80529】Re:csvファイルを出力したときに、日付表...

amatsuno - 19/2/28(木) 13:24 -


	引用なし

	パスワード

▼でれすけさん：
>こんにちは。
>
>　Windows側の設定だと思います。
>
>　Windowsの設定の【時刻と言語】で日付の形式を確認してください。
>
>　地域と言語も日本／日本語でなくなっているかもしれません。

地域と言語はyyyy/MM/ddになっています
形式は日本語になっています

・ツリー全体表示


	【80528】Re:csvファイルを出力したときに、日付表...

でれすけ - 19/2/27(水) 14:20 -


	引用なし

	パスワード

こんにちは。

　Windows側の設定だと思います。

　Windowsの設定の【時刻と言語】で日付の形式を確認してください。

　地域と言語も日本／日本語でなくなっているかもしれません。

・ツリー全体表示


	【80527】Re:csvファイルの読み込みに変数を指定し...

γ - 19/2/27(水) 13:27 -


	引用なし

	パスワード

了解。

・ツリー全体表示


	【80526】Re:csvファイルの読み込みに変数を指定し...

amatsuno - 19/2/27(水) 11:43 -


	引用なし

	パスワード

▼γ さん：
>こうしたところに投稿するときは、手打ちではなく、
>「VBE画面のコードをそのままコピーペイスト」すべきです。
>
>これまでの指摘はあなたの投稿上のミスについての指摘です。
>というのはいずれも構文エラーになるはずのまちがいです。
>無駄な労力を他人に使わせているのです。
>
>パス名が無効です、
>というエラーメッセージは
>open varfilename for input as #intfree
>の箇所で発生するはずで、
>varfilenameが""になっているのでしょう。
>
>つまり、
>varFileName = dir(sourcepath　& "ログ-12345678.csv")は
> dir("P:\aaa\ログ-12345678.csvログ-12345678.csv")
>としていることと同じで、そんなファイルはないから、
>varFileNameは ""となっているのでしょう。
>
>エラー回避のためには、まずは
>sourcepath = "P:\aaa\" とすればよいのでは？
>
>ただし、本当の質問は、日付部分を自動作成したいのではないかと
>思うが、まずはここまで。
>
>繰り返しますが、「コードはコピーペイストすべし」を肝に銘じて下さい。

すいません。
以降、気をつけます

・ツリー全体表示


	【80525】csvファイルを出力したときに、日付表記...

amatsuno - 19/2/27(水) 11:42 -


	引用なし

	パスワード

マクロで作成したexcel上のデータをcsvとして保存するときに、
csv上の日付表記がm/d/yyyyの順で表示されてしまいます

　ws_res.Columns(3).Copy
　　ws_last.Columns(1).PasteSpecial Paste:=xlPasteValues
　　ws_last.Columns(1).NumberFormatLocal = "yyyy/m/d"

　 ws_last.SaveAs "C:\fileexp.csv", FileFormat:=xlCSV

上記のように書いたとき、
fileexp.csvの第1カラムが2/26/2019
のように表示されます

どのように修正すればよいのでしょうか？

お分かりになられる方、よろしくお願いいたします

・ツリー全体表示


	【80524】Re:csvファイルの読み込みに変数を指定し...

amatsuno - 19/2/27(水) 9:52 -


	引用なし

	パスワード

▼zzz さん：
>そっちは見てなかった。
>恥ずかしい。

すいません。
""なども指定しています

この箇所、別の方法で回避しましたので、
本件はクローズでお願いします

お手数をおかけしまして申し訳ございませんでした

・ツリー全体表示


	【80523】Re:csvファイルの読み込みに変数を指定し...

γ - 19/2/26(火) 23:05 -


	引用なし

	パスワード

こうしたところに投稿するときは、手打ちではなく、
「VBE画面のコードをそのままコピーペイスト」すべきです。

これまでの指摘はあなたの投稿上のミスについての指摘です。
というのはいずれも構文エラーになるはずのまちがいです。
無駄な労力を他人に使わせているのです。

パス名が無効です、
というエラーメッセージは
open varfilename for input as #intfree
の箇所で発生するはずで、
varfilenameが""になっているのでしょう。

つまり、
varFileName = dir(sourcepath　& "ログ-12345678.csv")は
dir("P:\aaa\ログ-12345678.csvログ-12345678.csv")
としていることと同じで、そんなファイルはないから、
varFileNameは ""となっているのでしょう。

エラー回避のためには、まずは
sourcepath = "P:\aaa\" とすればよいのでは？

ただし、本当の質問は、日付部分を自動作成したいのではないかと
思うが、まずはここまで。

繰り返しますが、「コードはコピーペイストすべし」を肝に銘じて下さい。

・ツリー全体表示


	【80522】Re:csvファイルの読み込みに変数を指定し...

zzz - 19/2/26(火) 20:18 -


	引用なし

	パスワード

そっちは見てなかった。
恥ずかしい。

・ツリー全体表示


	【80521】Re:csvファイルの読み込みに変数を指定し...

γ - 19/2/26(火) 20:05 -


	引用なし

	パスワード

文字列は"と"で囲まないとダメということのほか、
Dim と　= の取り合わせも　構文エラーになるはずですがね。

・ツリー全体表示


	【80520】Re:csvファイルの読み込みに変数を指定し...

zzz - 19/2/26(火) 20:00 -


	引用なし

	パスワード

そこじゃないでしょ。

"　 "

・ツリー全体表示


	【80519】Re:csvファイルの読み込みに変数を指定し...

amatsuno - 19/2/26(火) 16:52 -


	引用なし

	パスワード

▼ピンクさん：
>▼amatsuno さん：
>>din sourcepath = string
>> sourcepath = P:\aaa\ログ-12345678.csv
>
>Dim sourcepath = string
>sourcepath = "P:\aaa\ログ-12345678.csv"

すいません。
記載が間違えていました
dimとしても結果が変わりません。

・ツリー全体表示


	【80518】Re:フォントの反映【エクセルからアウト...

aymie - 19/2/26(火) 15:16 -


	引用なし

	パスワード

▼マナさん：
>▼aymie さん：
>
>アウトルックのことは全くわかりませんので
>検索してみました。
>
>ht　tps://www.ka-net.org/blog/?p=8550

マナさん、
ご回答頂きありがとうございます！Word経由で装飾するという方法があるのですね。エクセル→ワード→アウトルックという形でメール作成ができないか工夫してみます。
自分では探せなかったページなので、とても参考になりました、ありがとうございました。

・ツリー全体表示


	【80517】Re:フォルダ内の複数のExcelファイルを１...

マナ - 19/2/25(月) 17:47 -


	引用なし

	パスワード

▼くりしちさん：

回答ではありません。

↓の　xyzさんと同じ方でしょうか？
ht tp://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=80506;id=excel

・ツリー全体表示


	【80516】Re:csvファイルの読み込みに変数を指定し...

ピンク - 19/2/25(月) 15:14 -


	引用なし

	パスワード

▼amatsuno さん：
>din sourcepath = string
> sourcepath = P:\aaa\ログ-12345678.csv

Dim sourcepath = string
sourcepath = "P:\aaa\ログ-12345678.csv"

・ツリー全体表示


	【80515】csvファイルの読み込みに変数を指定したい

amatsuno - 19/2/25(月) 14:08 -


	引用なし

	パスワード

csvファイルを読み込むマクロで、
ファイル名に変数を指定して読み込みをしたいと考えております

読み込むcsvのファイル名は「ログ-（日付）.csv」と「ライセンス-（日付）.csv」
になり、（日付）が毎日変更される値になります。

din sourcepath = string
sourcepath = P:\aaa\ログ-12345678.csv

dim varFileName as string
dim varFileName2 as string

　　
　　　'マスタ情報のcsvファイルを選択する
　　varFileName = dir(sourcepath　& "ログ-12345678.csv")

　　'グループ情報のcsvファイルを選択する
　　varFileName2 = dir(sourcepath　& "ライセンス-12345678.csv")

　　intFree = FreeFile '空番号を取得
　　intFree2 = FreeFile '空番号を取得

'csvファイルを開く
open varfilename for input as #intfree

　　'csvファイルを開く
open varfilename2 for input as #intfree2

　　
上記のように記載したのですが、
「パス名が無効です」表示されます
（パス自体は存在します）

何か指定が間違っているのでしょうか？
お分かりになられる方、
よろしくお願いいたします

・ツリー全体表示


	【80514】フォルダ内の複数のExcelファイルを１つ...

くりしち - 19/2/25(月) 7:25 -


	引用なし

	パスワード

マクロ素人です。
申し訳ありませんが、教えてください。
題名のとおり、集計表を以下の式で作成してみました。

'
Option Explicit
'
Sub Macro1()
'
Dim O As Worksheet
Dim Path As String
Dim FileName As String
Dim IRange As String
Dim RowOut As Long
Dim RowAdd As Long
'
Set O = ThisWorkbook.Sheets("出力")
RowOut = InStrRev([B2], "\")
Path = Left([B2], RowOut - 1)
FileName = Dir([B2])
IRange = [B3]
RowAdd = Range(IRange).Rows.Count
O.Cells.ClearContents
RowOut = 1
'
While FileName > ""
Workbooks.Open Path & "\" & FileName, ReadOnly:=True
Range(IRange).Copy
O.Cells(RowOut, "A").PasteSpecial xlPasteValues
RowOut = RowOut + RowAdd
ActiveWorkbook.Close False
FileName = Dir
Wend
End Sub

上記式の、同マクロ内で出力ブックの、抽出の列数を増やしてみたいと考え、同じ式をコピー(wendの下から、同式のset O以下が同文で、IRange = [B3]を[C3]と変更、O.Cells(RowOut, "A")をO.Cells(RowOut, "B")と変更）し、試してみましたが、エラーが出てしまいました。
同じマクロ内で式を連結させて、出力ブックの抽出列数を増やすことは可能でしょうか？

例：出力ブックB3の範囲は（K13:AI14）となっていますが、C3の範囲は（A2:C13）、D3の範囲は（D2:G14）と、出力ブックの抽出列数を増やしていきたいです。。

・ツリー全体表示


	【80513】Re:EXCEL フォルダ内のファイルを結合す...

xyz - 19/2/25(月) 6:57 -


	引用なし

	パスワード

▼マナさん：
>▼xyz さん：
>^
>>Range(K13:AI13).Copy
>>としたところ区切り範囲のエラーが出てしまい、K13:AI13とすると、rangeメソッドのエラーが出てしまいます。
>
>Rangeでのセルの指定方法
>ht tps://excel-ubara.com/excelvba1/EXCELVBA309.html

抽出できました！
お手数おかけしました。本当にありがとうございます！

・ツリー全体表示


	【80512】Re:シート名と同じ文字列のセル行位置を...

γ - 19/2/24(日) 8:51 -


	引用なし

	パスワード

すでに適切なコメントをいただいています。
遅ればせながら追加コメントをします。

>MATCH関数に対応するＶＢの関数は何でしょうか？
そういうVBの関数はありません。

VBAの中でMatch関数を使えるようにしたものが、
(Application.)WorksheetFunction.Matchです。
Applicationは省略することが多いですね。

下記を参照。
ht tps://www.moug.net/tech/exvba/0100035.html
↑スペースを詰める。

--------------------------------------
最初の質問への回答の補足。

> k = Worksheet.Match(sheetName, activesheet.Range("Q8:Q14"), False, 0)
Worksheet.Matchのところですが、
(1)Worksheetオブジェクトのつもりだとして、
　単にWorksheetと書くことは無いと思って頂いて結構です。
　Worksheets("Sheet1")
　Worksheets(1)
　などと書くことが多いです。

(2)重要なのは、Worksheetオブジェクトのつもりだとして、
　 Worksheetオブジェクトは、Matchというメソッド、プロパティは持ちません。
　オブジェクト - メソッド
　オブジェクト - プロパティ　の組み合わせは決まっており、
　自分で勝手に追加することはできません。
　そういう正当な組み合わせであるかどうかに気をつけることが大切です。

ヘルプで調べたり、最初は例文を一部を変えて使ってみるという経験を
積み重ねることが必要でしょう。

---------------------------------------
また、
Option Explicit
をモジュールの一行目に挿入するようにして下さい。
そうすれば、今回のような未宣言の変数には警告が出て、
しかも場所を特定してくれますから、原因が直ぐに判明します。

今回の例で言えば、Worksheetがハイライトされ、
「変数が定義されていません」とエラーになるはずです。
Excel君は、ユーザーが使った変数と見なし、
その宣言がされていないと指摘しています。
ミスの早期発見につながります。

なお、
ツール－オプション－編集で
「変数の宣言を強制する」にチェックを入れておけば、
モジュールを作成した時点で、Option Explicitが自動的に挿入されるので、
手間が省けます。
一度だけチェックを入れておけば、以後、気にする必要はありません。
これは必ず実行してください。参考程度の聞いて貰っては困ります。

ht tp://officetanaka.net/excel/vba/beginner/06.htm
を参照。

・ツリー全体表示


	【80511】Re:EXCEL フォルダ内のファイルを結合す...

マナ - 19/2/23(土) 21:51 -


	引用なし

	パスワード

▼xyz さん：
^
>Range(K13:AI13).Copy
>としたところ区切り範囲のエラーが出てしまい、K13:AI13とすると、rangeメソッドのエラーが出てしまいます。

Rangeでのセルの指定方法
ht tps://excel-ubara.com/excelvba1/EXCELVBA309.html

・ツリー全体表示


	【80510】Re:EXCEL フォルダ内のファイルを結合す...

xyz - 19/2/23(土) 21:34 -


	引用なし

	パスワード

▼マナさん：
>▼xyz さん：
>
>>左様です。単純にそこに範囲を指定すればよろしいのでしょうか？
>
>はい。それでもよいです。
>試していないのですか？
>
>　素人で申し訳ありません。
Range(Cells(read_row, 1), Cells(input_end_row, read_col)).Copyを
Range(K13:AI13).Copy
としたところ区切り範囲のエラーが出てしまい、K13:AI13とすると、rangeメソッドのエラーが出てしまいます。

・ツリー全体表示


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

97 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free