質問: myPath & "\" & myDate ↑VBAは省略して途中まで記載しました。
回答: >その行数と同じ分、テキストデータをSQLテキストファイルにコピー ここの処理が分かりません。 縦に並んでいるセルの内容をただ横につなげるだけななのでしょうか?SQL文にしたいのなら、例えば SELECT A7,A8,A9... というような感じに繋げたいとかじゃないんですかね? それともエクセルの内容をそのままtxtにコピーしたのと同じ結果にしたいのか。 A7 A8 A9 ... と1行ずつ改行が入る形式。 あとこちらも何をしようとしているのか。どんな値を取ることを期待しているのでしょう。 >sqlData0 = ActiveSheet.Rows("A7:")(xlDown) * "testdata_a" & Chr(13) & Chr(10) ActiveSheet.Rows("A7:")(xlDown) 意味が通じないのでこの時点でエラーが出ませんか? その後の文字列との連結("testdata_a")も改行が入る部分(Chr(13)やChr(10))も意味不明ですけど。 特定の行以下からから次の空白行までの行数を取得するならこういう感じになりますが。 ActiveSheet.Range("A7").End(xlDown).Row >うまくいきません。 というのはどううまくいかないのでしょう。txtへの保存ができないのか、保存した結果が期待したものにならないのか、具体的にこういう結果になって欲しいのだが、結果はこうなるみたいなモノがあるならそちらをあげられた方がよいかと。 どうされたいのかと、どこが間違っているのかも分からないし(にもかかわらず基本的なところはここを使いたいとの要望があるし)、またその要望の部分はtxtファイルの保存名と保存場所を決めている部分のようで幾らでも修正できる部分にしか思えないのですが。