Excelファイルからデータを抽出するのに役立つ必要があります

Question

カテゴリとその製品のリストを含むファイルがあり、それぞれの製品に関連価格があります。 |

車

スバル：そして、それは非常に悪い組織されます、それはこのようなものです$ 5200

トヨタ| $ 4300

レクサス| $ 8600

Ford | $ 7580

トラック

メルセデス| $ 12200

鈴木| $ 8400

私は基本的にこのシートからデータを抽出し、それをmysqlデータベースに格納する必要があります。 太字のすべてはカテゴリです。商品は次のカテゴリになるまでカテゴリの下に表示されます。それはどのようなツール/言語、私はこれを行うために使用することができていません

だからカテゴリに表には、この

id title  category_id price 
--------------------------------- 
1 Subaru 1   5200 
2 Toyota 1   4300 
2 Lexus  1   8600 
2 Ford  1   7580 
2 Mercedes 2   12200 
2 Suzuki 2   8400 

のようなこの

id title 
----------- 
1 Cars 
2 Trucks 

や製品の表のように見える終わる必要があります。これは1回限りの抽出です。どのように私はこれで作業を開始することができます上の任意のポインターは、十分に役立つだろう。

Answer 1

1回の抽出では、vbaを使用してExcelを使用して標準の方法で2つの別々の一時的なシートに分割し、データベースにデータを挿入します。

以下のコードは、データが「データ」という名前のシートであると仮定し、セルA1から始まり
に各行をコピー、

コードは、データシートをループ「Catagory」および「製品」と呼ばれる2枚のシートを追加正しいテーブルシート

Sub SplitData() 
    Dim rData As Range 
    Dim rCat As Range 
    Dim rProd As Range 
    Dim Cat As String 
    Dim Prod As String 
    Dim Price As Currency 
    Dim Cat_ID As Long 
    Dim Prod_ID As Long 

    Set rData = ActiveWorkbook.Worksheets("Data").Cells(1, 1) 
    Set rCat = ActiveWorkbook.Worksheets("Catagory").Cells(1, 1) 
    Set rProd = ActiveWorkbook.Worksheets("Product").Cells(1, 1) 

    rCat = "id" 
    rCat.Offset(0, 1) = "title" 
    Set rCat = rCat.Offset(1, 0) 

    rProd = "id" 
    rProd.Offset(0, 1) = "title" 
    rProd.Offset(0, 2) = "catagory_id" 
    rProd.Offset(0, 3) = "price" 
    Set rProd = rProd.Offset(1, 0) 

    Cat_ID = 0 
    Prod_ID = 0 

    Do While rData <> "" 
     If rData.Font.Bold Then 
      Cat = rData 
      Cat_ID = Cat_ID + 1 

      rCat = Cat_ID 
      rCat.Offset(0, 1) = Cat 

      Set rCat = rCat.Offset(1, 0) 
     Else 
      Prod = rData 
      Price = rData.Offset(0, 1) 
      Prod_ID = Prod_ID + 1 

      rProd = Prod_ID 
      rProd.Offset(0, 1) = Prod 
      rProd.Offset(0, 2) = Cat_ID 
      rProd.Offset(0, 3) = Price 

      Set rProd = rProd.Offset(1, 0) 
     End If 
     Set rData = rData.Offset(1, 0) 
    Loop 


End Sub 

Answer 2

EDITED：以下のコメントに記載されている新しい要件に基づいています。

Excel内でVBAを使用すると、次の操作が実行されます。私はpsudeoコードを使用して説明します：

string saveCategory; 
readrow columnA, ColumnB; 
if (columnA is bold) 
{ 
    saveCategory = columnA; 
    write saveCategory to category table; 
} 
else 
{ 
    write to product table productname=ColumnA, productprice=columnB, category=saveCategory; 
} 
loop back to read next row until end of worksheet; 

Answer 3

可能であれば、SQL Server Integration Servicesを使用します。ソース内のレコードタイプを処理できます。