エクセルの学校：全文検索：Hyper Estraier： 20��...

Results of 1 - 1 of about 19635 for 20��... (0.004 sec.)

[[20140920112501]]: #score: 2681; @digest: df761b14b8d0c15b6d9508bd73c1057a; @id: 66173; @mdate: 2014-10-15T12:50:06Z; @size: 28873; @type: text/plain; #keywords: mainstream (94080), 務所 (71846), 目20 (64549), モ型 (58560), datapath (54527), 目10 (45829), ト項 (35703), strline (35479), memo (31457), fields (28073), ん, (27575), ェン (24996), いテ (24956), 事務 (24763), フェ (22960), ィー (20496), 所2 (20453), mydata (19842), 所1 (19361), create (17031), ルド (13788), 近所 (13298), 所pg (11720), レコ (11444), ーブ (11376), テー (11255), ブル (8681), テキ (8530), 項目 (8176), キス (7883), ンダ (6942), 2014 (6479); 『マルチレコードについて』（フェンダー）
いつもお世話になります。下記のようなVBA テキスト入出力をしたいのですが、参考になるサイトを、ご存知の方いないでしょうか? 区切りのない5byte固定レコード。出力前9レコードで45byte 10AAA 20BBB 20CCC 10DDD 20EEE 20FFF 20GGG 10HHH 20III 出力後6レコードで合計60byte 10AAA20BBB 10AAA20CCC 10DDD20EEE 10DDD20FFF 10DDD20GGG 10HHH20III 1レコードから順番に 10が先頭の起点になり、 20のレコードが10の後列に必ずきます。なにから始めればよいか、現在はまだ思考中です。どなたかアドバイスお待ちしております。＜使用 Excel:Excel2010、使用 OS:Windows7 ＞ ---- とりあえずの ToyProgram ですが。 Sub sample() Const dataPath = "sample.dat" MakeData dataPath MsgBox ReadData(dataPath) End Sub Sub MakeData(dataPath) Dim fso As New Scripting.FileSystemObject fso.CreateTextFile(dataPath).Write "10AAA20BBB20CCC10DDD20EEE20FFF20GGG10HHH20III" End Sub Function ReadData(dataPath) Dim fso As New Scripting.FileSystemObject Dim dat As String Dim dat10 As String Dim res Dim data As Scripting.TextStream Set data = fso.OpenTextFile(dataPath) Do While data.AtEndOfStream = False dat = data.Read(5) Select Case Left(dat, 2) Case "10": dat10 = dat Case "20": res = res & IIf(res = "", "", vbNewLine) res = res & dat10 & dat Case Else End Select Loop data.Close ReadData = res End Function （Mook） 2014/09/20(土) 12:27 ---- サンプルデータどうもありがとうございます。参考になります。因みに、sample.datデータを作成すれば動作するようになるのでしょうか? （フェンダー） 2014/09/20(土) 23:30 ---- 見るべきはそこではないと思っていたのですがw。固定バイト単位で処理する例のつもりで書きました。データの形式の説明がなかったので、とりあえずファイルにしましたがパケットでもDB でもなんでもかまわないと思います。 >なにから始めればよいか、現在はまだ思考中です。の取っ掛り程度の参考にしてください。（Mook） 2014/09/20(土) 23:44 ---- そうでしたか。コードの方を参考にさせていただきます。また何かありましたらご相談させてください。どうもありがとうございました。（フェンダー） 2014/09/20(土) 23:55 ---- 読み返したら、テキストって書いてありましたね。 45バイトとあったので改行コードがないと思ったのですが、 1行1レコードであれば data.Read(5) を data.ReadLine() とすれば、良いかと思います。あと、TextStream は通常のTextFile でよいですね。（Mook） 2014/09/21(日) 00:06 ---- 入出力前に用意するデータをどのように渡すか考えたのですがカンマ区切りのCSVで対応することにしました。（改行あり）区切りがないテキストデータでも改行なしでもその用途に合わせて用意できるのですが・・・サンプルコードを見させていただいたのですが考え方としてエクセル表で考えた場合レコードのAセルに"10"がある場合次のレコードのAセルに"20"が続くまでは Aセルの"10"があるレコードを増やし Aセルの"20"があるレコードと合わせる。といった考え方でプログラムを考えればよろしいでしょうか? なにか考え方のアドバイスをいただけると助かります。（fennda- ） 2014/09/24(水) 22:08 ---- すいません。せっかく作成して頂いたので動きだけでもみたいのですが fso As New Scripting.FileSystemObjecの部分がユーザー定義型は定義されていませんとなります。これだけでもアドバイス頂けないでしょうか。どうぞよろしくお願いします。（フェンダー） 2014/09/25(木) 16:16 ---- 参考に下記URLをだします http://blog.livedoor.jp/excelvbamemo/archives/53397448.html わからないときはそのまま検索すると答えが出ます。今回の場合だと Scripting.FileSystemObject ユーザー定義型は定義されていませんとgoogleなどで検索すれば答えのヒントが出てきます。わからないときは検索してみるとこの疑問ならすぐに解決できます。ちなみに上のfennda-さんとフェンダーさんは同じでよろしいですか。（デイト） 2014/09/25(木) 16:39 ---- すいません。半角で記載して気が付きませんでした。 fennda-はフェンダーと同じになります。ご質問前に検索したのですが、よく見てませんでした。解決しましたので、参考にさせていただければと思います。（フェンダー） 2014/09/25(木) 19:42 ---- 提示いただいたコードは fso.CreateTextFile(dataPath).Writeによって "10AAA20BBB20CCC10DDD20EEE20FFF20GGG10HHH20III"の文字列に対して書き出していると思いますがこちらで宣言した dim レコード(1 To 5) As Byteに fso.CreateTextFile(dataPath).Write "10AAA20BBB20CCC10DDD20EEE20FFF20GGG10HHH20III"の "10AAA20BBB20CCC10DDD20EEE20FFF20GGG10HHH20III"の部分に値を渡して、検証したいのですがご教授願いませんでしょうか。宜しくお願いします。（フェンダー） 2014/09/30(火) 10:00 ---- Byte は 0-255 の「数値」を扱うデータ型ですから、文字ではなく ASCII コード等になると思いますが、そのあたりの仕様を明示してはどうでしょうか。文字列から文字コードに変換するのは CODE 関数です。 http://www.becoolusers.com/excel/code.html 文字列を一括で1文字ずつ配列に入れることは出来ませんので、MID などで切り出しながら個別に配列に代入する処理になると思います。（Mook） 2014/10/01(水) 11:25 ---- アドバイスどうもありがとうございます。 1レコードごとに含まれる情報は 1byte文字 ASCII 2byte文字 SHIFTJISになります。 Mook様から提示して頂いたサンプルコードを参考によく使用する下記のコードに引数として渡すプログラムが出来ればと思っております。まだ検証中ですが・・・検証中のコードをそのまま記載します。 Sub Main() コードは削除しました。 End Function データは改行付のファイルを作成しセルにファイル場所を指定し 10AAA 20BBB 20CCC 10DDD 20EEE 20FFF 20GGG 10HHH 20III 5byteごとに入出力してます。（フェンダー） 2014/10/01(水) 13:55 ---- 仕様を読み解く気力と時間が無いので回答では無いですが Mookさんの以下の部分について > 文字列を一括で1文字ずつ配列に入れることは出来ませんので、MID などで切り出しながら > 個別に配列に代入する処理になると思います。こんな書き方も出来るよって事でサンプルコードだけ Sub test() Dim byt() As Byte byt = "123456" MsgBox byt byt = StrConv("123456", vbFromUnicode) MsgBox byt End Sub （ご近所PG） 2014/10/01(水) 15:31 ---- なるほど。フェンダーさんの例には適用できないですけれど、ASCII 文字列のByteへの格納は byt = StrConv("123456", vbFromUnicode) で出来そうですね。参考になりました。（Mook） 2014/10/01(水) 16:21 ---- 私も >こんな書き方も出来るよって事でサンプルコードだけという箇所だけですが、 APIのMoveMemoryを使った例です。 Option Explicit Private Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" _ (ByRef Dest As Any, ByVal Source As String, ByVal Length As Long) Sub test() Dim g0 As Long Dim S(1 To 5) As Byte Dim mystr As String mystr = "1234567890" MoveMemory S(1), Mid(mystr, 1, 5), UBound(S) For g0 = LBound(S) To UBound(S) Debug.Print Hex(S(g0)) Next Debug.Print "一回目" MoveMemory S(1), Mid(mystr, 6, 5), UBound(S) For g0 = LBound(S) To UBound(S) Debug.Print Hex(S(g0)) Next Debug.Print "二回目" End Sub 尚、64Bit版の場合、APIの宣言部の訂正が必要です。 http://www.saka-en.com/office/vba-declare-statement-update-excel-2013/ （ichinose） 2014/10/02(木) 06:49 ---- この手の文字列をバイナリ処理はたいてい C/C++ を使ってしまいますが、VBA でもいろいろ出来るものですね。 FSO や Stream でも Write、Read 系はバイナリでの処理が出来そうですが、ここも苦手なところです。いろいろと参考になりました。（Mook） 2014/10/02(木) 11:27 ---- サンプルデータどうもありがとうございます。見慣れない処理方法ですので勉強に、なります。とりあえず、生データから、扱うという前提でバイナリ処理から、検証しようとしたのですがなかなか難しいです。テキストデータにしてから、処理するという方法もあるのですが。言語はともかく、処理方法だけでも勉強できればと思ったのですが時間がかかりそうです。（フェンダー） 2014/10/02(木) 17:54 ---- お世話になります。バイナリ処理で考えていたのですが CSVデータによるデータベースへの取り込みによるデータ編集に変更しました。 Sub main() Dim db As DAO.Database Dim rs(1) As DAO.Recordset Dim FSO As FileSystemObject Dim mainStream As TextStream Dim myData As Variant Dim 事務所 As String, i As Integer Set db = CurrentDb Set rs(1) = db.OpenRecordset("テーブル", dbOpenDynaset) 'テーブルファイルをセット Set FSO = CreateObject("Scripting.FileSystemObject") Set mainStream = FSO.OpenTextFile("C:¥testout.txt", ForReading) Do Until mainStream.AtEndOfStream myData = Split(mainStream.ReadLine, ",") Select Case myData(0) Case "10" 事務所 = myData(0) & "," & myData(1) & "," & myData(2) & "," & myData(3) For i = 1 To 4 Next Case Else rs(1).AddNew rs(1).Fields(0) = 事務所 For i = 1 To 4 rs(1).Fields(i) = myData(i) Next rs(1).Update End Select Loop mainStream.Close End Sub 現在、上記のコードで 10,事務所1,1,2 20,Aさん,4,5,6 20,Bさん,7,8,9 20,Cさん,10,11,12 10,事務所2,13,14 20,Dさん,16,17,18 20,Eさん,19,20,21 20,Fさん,22,23,24 20,Gさん,25,26,27 のようなテストデータを 10,事務所1,1,2,20,Aさん,4,5,6 10,事務所1,1,2,20,Bさん,7,8,9 10,事務所1,1,2,20,Cさん,10,11,12 10,事務所2,13,14,20,Dさん,16,17,18 10,事務所2,13,14,20,Eさん,19,20,21 10,事務所2,13,14,20,Fさん,22,23,24 10,事務所2,13,14,20,Gさん,25,26,27 のようにデータ編集したいのですが ※イメージは 10AAA 20BBB 20CCC 10DDD 20EEE 20FFF 20GGG 10HHH 20III から 10AAA20BBB 10AAA20CCC 10DDD20EEE 10DDD20FFF 10DDD20GGG 10HHH20III と同じです。事務所レコードのエリアを 20のレコードエリアに結合する際に事務所 = myData(0) & "," & myData(1) & "," & myData(2) & "," & myData(3) ですと同じフィールドに "10,事務所1,1,2",20,Aさん,4,5,6 "10,事務所1,1,2",20,Bさん,7,8,9 "10,事務所1,1,2",20,Cさん,10,11,12 "10,事務所2,13,14",20,Dさん,16,17,18 "10,事務所2,13,14",20,Eさん,19,20,21 "10,事務所2,13,14",20,Fさん,22,23,24 "10,事務所2,13,14",20,Gさん,25,26,27 ※分かりやすいように""でくくってます。というように同じフィールド内でカンマでくくられて、配列で分割されません。こういった結果の場合 rs(1).AddNew rs(1).Fields(0) = 事務所の部分から配列を分割できればと考えているのですがアドバイス頂けたら助かります。お手数ですがどうぞよろしくお願いします。（フェンダー） 2014/10/08(水) 11:20 ---- 因みに、データベース上にデータ編集したデータを取り込んだ後エクスポートする際にダブルコーテーションを外してテキストアウトすれば問題ないと思いますが出来たら、データ編集の段階で対応出来ればと考えております。どうぞよろしくお願いいたします。（フェンダー） 2014/10/08(水) 14:51 ---- ご自身で作成されたコードではないのですかね? Sub main() Dim db As DAO.Database Dim rs(1) As DAO.Recordset Dim FSO As FileSystemObject Dim mainStream As TextStream Dim myData As Variant Dim 事務所 As String, i As Integer Dim cnt As Integer, vnt As Variant '★ Set db = CurrentDb Set rs(1) = db.OpenRecordset("テーブル", dbOpenDynaset) 'テーブルファイルをセット Set FSO = CreateObject("Scripting.FileSystemObject") Set mainStream = FSO.OpenTextFile("C:¥testout.txt", ForReading) Do Until mainStream.AtEndOfStream myData = Split(mainStream.ReadLine, ",") Select Case myData(0) Case "10" 事務所 = myData(0) & "," & myData(1) & "," & myData(2) & "," & myData(3) For i = 1 To 4 '? Next Case Else rs(1).AddNew '★ cnt = 0 For Each vnt In Split(事務所, ",") rs(1).Fields(cnt) = vnt cnt = cnt + 1 Next For i = LBound(myData) To UBound(myData) rs(1).Fields(i + cnt) = myData(i) Next rs(1).Update End Select Loop mainStream.Close End Sub テストしてません（やる気も無い）がこんなことですか。「テーブル」のレイアウトが分からないからアレですが。きっと単なる枠を作っただけのテーブルなのだろうと想像はしつつ。（ご近所PG） 2014/10/08(水) 16:29 ---- すいません。表記し忘れましたが空のテーブルになります。サンプルデータを土台に参考書などから作ってみたのですがうまくいかない部分だけご質問させて頂きました。お手数をおかけしてますので、エラー表示は提示しませんがエラーになります。参考にさせて頂きます。（フェンダー） 2014/10/08(水) 17:05 ---- 仮に以下の部分でエラーになるなら For i = LBound(myData) To UBound(myData) rs(1).Fields(i + cnt) = myData(i) Next 「テーブル」のフィールド数が足りてないとかそんなところだと思います。（ご近所PG） 2014/10/08(水) 17:11 ---- ご連絡どうもありがとうございます。せっかくコメント頂いたので、報告します。ご近所PG様のおっしゃる通り rs(1).Fields(i + cnt) = myData(i) で、このコレクションには、項目がありませんというエラーでしたのでテーブルのフィールドを10フィールドぐらい増やしたのですが同じエラーになるんですよね。操作方法が誤っている可能性が、あるのでまたテーブルを作り直して取り込んでみます。（フェンダー） 2014/10/08(水) 17:55 ---- もう一度、あらためてバケットテーブルを用意しましたらご近所PG様のアドバイス通りで対応出来ました。最終テストで、 10のレコードが20フィールド 20のレコードが150フィールドのテストデータを用意しデータ編集をしたところ実行時エラー3163 指定されたデータ量がフィールドサイズを超えています。データ量を減らし、挿入または貼り付けを行ってください。となります。因みにバケットテーブルは200フィールド用意してます。下記の部分です。 rs(1).Fields(cnt) = vnt こういった場合の、対処方法はどのようにすれば良いのでしょうか? お手数をおかけします。（フェンダー） 2014/10/09(木) 09:44 ---- 記述内容からAccessのことだと思いますが、 Accessのテーブルはフィールド数の上限のほかに、フィールドのサイズ合計という制限もあります。各フィールドサイズを必要最低限に調整してみるくらいでしょうか。単にフィールド追加するだけだとデータ型:短いテキストフィールドサイズ:255 となり、無駄が多い可能性がある。現状調整済みで足りないなら考え方を変える必要があるでしょう。そもそもの要件である最終出力物が完成すれば良いとして考えれば、当初フェンダーさんが書かれていた 1フィールドにカンマ区切りのデータをそのまま格納というのも一つの手法としてはアリだと思います。テーブルの定義を短いテキストではなく長いテキストとして、区分毎のフィールドを用意する…… Create Tableで表現すると Create table テーブル(項目10 MEMO,項目20 MEMO); 等ですか。長いテキスト型なら1GBだか2GBだかのテキストデータを格納できたと思います。格納後に単に結合して出力すれば良いでしょう。もっとも、本当に記載された要件だけで済ませて良いならDBを介さずに処理する方がスマートなのでしょうけれども。（ご近所PG） 2014/10/09(木) 10:38 ---- アドバイスどうもありがとうございます。アクセスにフィールドサイズの制限があるとは知りませんでした。まずなぜアクセスの取り込みを選択したかといいますと 1000000行クラスだと、エクセルのセル上取込よりアクセスの方が安定するのとそのまま取り込んでデータ編集後にクエリを使用してレコードの抽出を行うのに効率が良いと考えたからです。ご近所PG様のアドバイス通り 1フィールドにカンマ区切りのデータをそのまま格納で検証してみたのですが事務所 = myData(0) の添え字のヶ所が 12フィールドまでしか格納できません。こちらも指定されたデータ量がフィールドサイズを超えています。となります。データ編集する前に要らないフィールドを削除する方法も考えたのですがすべてのフィールドにデータが入ってますのでフィールドを削ることも、出来ません。こういったエラーが発生すると思ってませんでしたので結果的にはVBAの入出力の方が良かったのですが・・・ご近所PG様のアドバイス通り Create table テーブル(項目10 MEMO,項目20 MEMO); というような作業をやってみたいのですが作業方法が分かりません。急ぎではありませんので時間がある時にでもご説明いただくと助かります。（フェンダー） 2014/10/09(木) 14:38 ---- データを編集する前提ならこの考え方はダメだろうからこそ、サンプルコードを記述します。きっとこのままでは答えにはなりません。冗長な部分は削りました&テストデータをCドライブ直下に置くのはイヤなので C:¥tempにある事としています。 Sub main() Dim rs As DAO.Recordset Dim FSO As New FileSystemObject Dim mainStream As TextStream Dim 事務所 As String Dim strLine As String Set rs = CurrentDb.OpenRecordset("テーブル", dbOpenDynaset) 'テーブルファイルをセット Set mainStream = FSO.OpenTextFile("C:¥temp¥testout.txt", ForReading) Do Until mainStream.AtEndOfStream strLine = mainStream.ReadLine Select Case Split(strLine, ",")(0) Case "10" 事務所 = strLine Case Else rs.AddNew rs.Fields("項目10") = 事務所 rs.Fields("項目20") = strLine rs.Update End Select Loop mainStream.Close rs.Close MsgBox "end" End Sub そもそもフィールド数云々でのエラーはおいといて、各フィールドに流し込むロジックが作れたのなら、データをテーブルに流し込んでいる部分をファイルとして出力する形に変えてみる事を考えてみてはいかがかしらと。ただ、データ編集が絡むとまた違うかもしれませんが。（ご近所PG） 2014/10/09(木) 15:10 ---- コードありがとうございます。最終的には入出力に切り替えようと思っていたのですがアドバイス頂いた方法でも試してみたかったので・・・サンプルデータの中身は何を使ってくれという指示がありませんでしたので 10,事務所1,1,2 20,Aさん,4,5,6 20,Bさん,7,8,9 20,Cさん,10,11,12 10,事務所2,13,14 20,Dさん,16,17,18 20,Eさん,19,20,21 20,Fさん,22,23,24 20,Gさん,25,26,27 のフィールド数の少ないデータにテーブルは多めに作って実行したところ rs.Fields("項目10") = 事務所 rs.Fields("項目20") = strLine このコレクションには、項目がありませんというエラーでしたので MsgBoxは確認できませんでした。＞きっとこのままでは答えにはなりません。おっしゃる通りこのままではきりがありませんので VBA入出力に切り替えてみようと思います。またご相談させて頂ければありがたいです。（フェンダー） 2014/10/09(木) 16:43 ---- > このコレクションには、項目がありませんというエラーなぜこのエラーが出るか、そこを追求するくらいはして欲しかったけれど…… 「テーブル」に「項目10」や「項目20」といったフィールドが無いから、ですよね。考え方は切り替えるということですので、まぁこれはこれで。（ご近所PG） 2014/10/09(木) 16:50 ---- あーすいません。そこは気がついていたのですが項目10・項目20と書いてあったので 10と20がある項目という意味と解釈（勘違い）しましたので rs.Fields("10") = 事務所 rs.Fields("20") = strLine に変更してはみましたが、エラーが出ました。せっかく作成して頂いたのでデータではないテーブルに項目10・項目20というフィールドを追加してもう一度ちょっとやってみます。（フェンダー） 2014/10/09(木) 17:26 ---- 一応前提が Create table テーブル(項目10 MEMO,項目20 MEMO) にて作成されたテーブル、というつもりでしたので…… 上記をクエリなりで実行すると「テーブル」が作成され、その中身は項目10 長いテキスト項目20 長いテキストといった2フィールドになるのです。（ご近所PG） 2014/10/09(木) 17:35 ---- Create table テーブル(項目10 MEMO,項目20 MEMO);に話がつながっていたのですね。＞一応前提が Create table テーブル(項目10 MEMO,項目20 MEMO) にて作成されたテーブル、というつもりでしたので…… 上記をクエリなりで実行すると「テーブル」が作成され、このあたりの操作方法がよく分からないんです。私は、通常作っていたバケットテーブルの1フィールド目に項目10か項目20をセットすればいいと思っていたのですが・・・（フェンダー） 2014/10/10(金) 09:17 ---- クエリで実行するが分からなければ調べるか、忘れてください。単にテーブルを作る、それだけです。今一度、先に示した通りのテーブルを作ってみてください。すなわち「テーブル」その中身は項目10 長いテキスト項目20 長いテキストといった2フィールドです。（ご近所PG） 2014/10/10(金) 09:25 ---- 色々なテーブルを作ってみたのですがダメですね。例1 テーブルの中身項目10 ,長いテキスト項目20 ,長いテキストデータの中身項目10 ,長いテキスト項目20 ,長いテキスト例2 テーブルの中身項目10 ,長いテキスト項目20 ,長いテキスト項目20 ,長いテキスト項目20 ,長いテキスト項目10 ,長いテキスト項目20 ,長いテキスト項目20 ,長いテキスト項目20 ,長いテキスト項目20 ,長いテキストデータの中身 10,事務所1,1,2 20,Aさん,4,5,6 20,Bさん,7,8,9 20,Cさん,10,11,12 10,事務所2,13,14 20,Dさん,16,17,18 20,Eさん,19,20,21 20,Fさん,22,23,24 20,Gさん,25,26,27 色々試してもこのコレクションには、項目がありませんというエラーですが、なにか私の設定方法は間違ってますでしょうか? （フェンダー） 2014/10/10(金) 10:11 ---- 中身といったから混乱してるんですかね。テーブル定義といえば通じましたか。埒が明かないので以下を実行して出来上がったテーブルを確認してください。 Sub maketesttable() CurrentDb.Execute "Create table こういうテーブル(項目10 MEMO,項目20 MEMO)" MsgBox "「こういうテーブル」が作成されました" End Sub （ご近所PG） 2014/10/10(金) 10:18 ---- あぁ……混乱を招いている可能性がある点をもう一つ。 Accessのバージョンが古い場合、「長いテキスト」型は「メモ」型と表示されます。私はAccess2013を使用しているため、メモ型が「長いテキスト」と表示されています。「長いテキスト」と私が表現しているのはデータ自体を抽象的に表現してのことではなく、「数値型」のような「データ型」を示していました。参考になりそうなURL追記 http://www.happy2-island.com/access/gogo05/capter20601.shtml （ご近所PG） 2014/10/10(金) 10:33 ---- >「テーブル」その中身は項目10 長いテキスト項目20 長いテキストといった2フィールドアクセス2013なら 1フィールド目を項目10の文字を取り込み形式が長いテキスト型アクセス2013なら 2フィールド目を項目20の文字を取り込み形式が長いテキスト型と解釈しました。今まで長いテキストや、MEMOの意味が分からなかったのですが取込の形式の事だったということで認識しました。話を整理しますとこちらの環境はアクセス2010になりますから 1フィールド目→項目10の文字を取り込み形式がメモ型 2フィールド目→項目20の文字を取り込み形式がメモ型という認識で確認させて頂きます。（フェンダー） 2014/10/10(金) 12:26 ---- Sub maketesttable() CurrentDb.Execute "Create table こういうテーブル(項目10 MEMO,項目20 MEMO)" MsgBox "「こういうテーブル」が作成されました" End Sub まずこちらを実行しても MsgBox に"「こういうテーブル」が作成されました"という表示がされるだけで実際のテーブルは作成されません。次に私の認識が間違っていなければ 1フィールド目→項目10の文字を取り込み形式がメモ型 2フィールド目→項目20の文字を取り込み形式がメモ型というテーブルを取り込んでデータの中身 10,事務所1,1,2 20,Aさん,4,5,6 20,Bさん,7,8,9 20,Cさん,10,11,12 10,事務所2,13,14 20,Dさん,16,17,18 20,Eさん,19,20,21 20,Fさん,22,23,24 20,Gさん,25,26,27 をセットしても未だにこのコレクションには、項目がありませんというエラーになってしまいます。サンプルの実行結果のテーブルを確認できなくてすいません。（フェンダー） 2014/10/10(金) 13:02 ---- 私が実行した限りでは、上記maketesttableを実行した後は表示が更新されないようで、 F5を押すなりすると表示が更新され、作成されたテーブルを確認できると思います。あるいは単にAccessDBを閉じて開き直すと、テーブルが出来ている事が確認できるでしょう。どうも大事な事が伝わっていない気がするのですが「項目10」と「項目20」という名称のフィールドが無いとダメなのですが、そこは理解されてるでしょうか。勝手につけた名前では通りません。もしフェンダーさんがコードを rs.Fields("10") = 事務所 rs.Fields("20") = strLine と直しているのなら、テーブル定義は 10 メモ型 20 メモ型です。 Create Table文で示すなら Create table テーブル(10 MEMO,20 MEMO) です。（でも数字だけのフィールド名は推奨されていないと記憶しています……）もう一例書きますか。もしコードが rs.Fields("フィールドA") = 事務所 rs.Fields("フィールドB") = strLine と書かれているなら、テーブル定義はフィールドA メモ型フィールドB メモ型です。 Create Table文で示すなら Create table テーブル(フィールドA MEMO,フィールドB MEMO) です。ついでに C:¥temp¥testout.txt の中身は 10,事務所1,1,2 20,Aさん,4,5,6 20,Bさん,7,8,9 20,Cさん,10,11,12 10,事務所2,13,14 20,Dさん,16,17,18 20,Eさん,19,20,21 20,Fさん,22,23,24 20,Gさん,25,26,27 でテスト済みです。実行した結果のテーブルの中身は項目10 項目20 10,事務所1,1,2 20,Aさん,4,5,6 10,事務所1,1,2 20,Bさん,7,8,9 10,事務所1,1,2 20,Cさん,10,11,12 10,事務所2,13,14 20,Dさん,16,17,18 10,事務所2,13,14 20,Eさん,19,20,21 10,事務所2,13,14 20,Fさん,22,23,24 10,事務所2,13,14 20,Gさん,25,26,27 です。（ご近所PG） 2014/10/11(土) 00:34 ---- 一度閉じるのわすれました。 F5でも更新されるんですね。（でも数字だけのフィールド名は推奨されていないと記憶しています……）コードとテーブルの数値は共通を意識して、項目でも試したと思いますがあくまで記憶です。数値だけのフィールド名は推奨されてないとは、知らなかったです。いずれにしても私の操作方法にあやまりがあります。平日でないと、確認出来る環境が用意出来ないので後日、ご報告させていただきます。（フェンダー） 2014/10/12(日) 08:01 ---- ご回答遅くなりました。 Sub maketesttable() CurrentDb.Execute "Create table こういうテーブル(項目10 MEMO,項目20 MEMO)" MsgBox "「こういうテーブル」が作成されました" End Sub で、こういうテーブル拝見させて頂きました。 F5かソフト再起動で確認できました。確認させて頂いてからやっとわかったのですが私は、配列に項目10と項目20を入力していたのですがフィールド名を変更していることに気がつきませんでした。コードをよく見ると rs.Fieldsと書いてありますよね。実際のフィールドが200項目ぐらいあるテストデータも無事、テキストアウト出来ました。これから細かい検証が必要ですがいまのところわざわざVBAに書き直す必要はありません。また細かいテストで、エラーが発生した場合は VBAで書き直すかまたご相談させてください。長い間、お付き合いいただきまして、本当にどうもありがとうございました。（フェンダー） 2014/10/14(火) 09:01 ---- とりあえずこちらが意図するところまでたどり着けたようでよかったです。少々忙しくなってきたので中々こちらの掲示板を見ることが出来ませんが、上記ままで使用した場合に起こりうる可能性のある問題をひとつだけ。現在はデータを突っ込んで再度取得して出力している形ですが、その場合データの並び順が維持されるかが疑問です。 INとOUTでデータの並び順を気にする必要がないなら構いませんが順序が大事な場合、ソートのためのキーとなるフィールド（行番号など）を同時にテーブルへ書き込む事が必要と思っています。以上、ちょっとした老婆心でした。今後は回答できるか分からないため、何かあればどなたかのフォローお願いします。（ご近所PG） 2014/10/15(水) 14:51 ---- よくよく考えてみたらもはやExcelではなくAccessの話になってました。ここでは回答を得られない可能性が高いかもしれませんね。もちろんAccessを始めデータ処理やらDBにも精通している方が多くいらっしゃるので答えてくれる人は居ると思いますが、あくまでも「エクセルの学校」という事を念頭に置いておかねば……（と自戒）（ご近所PG） 2014/10/15(水) 15:04 ---- わざわざ、これからの不具合を想定したアドバイスどうもありがとうございます。レコードの並びが変わるのは、対策が必要ですが多少のフィールドの並びが変わるのは問題ありません。あまり変わりすぎると、印刷指示をするときにわけがわからなくなってしまいますが・・・追加***************************** レコードの並びの問題であればどのみち、郵便番号をキーに郵便番号の若い順番にソートしてしまうので問題はないかと思います。追加***************************** とりあえず私も検証する時間がありませんので時間が空いたときにでも各配列のフィールド及びレコード順に連番を振って問題ないか検証はしてみる予定です。そういえば、アクセスの話になってましたので VBのコードに関して、もしくは処理方法による考え方等でもアドバイスいただければと思っております。どうもありがとうございました。（フェンダー） 2014/10/15(水) 21:27 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201409/20140920112501.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ