<% ' %> <% main() Sub main() Dim fs Set fs = CreateObject("Scripting.FileSystemObject") Dim ExcelDir ExcelDir = "/" & HomeAlias & "/data/user" If Not(fs.FolderExists(Server.MapPath(ExcelDir))) Then fs.CreateFolder(Server.MapPath(ExcelDir)) End If %> <% = HtmlHeader("") %> <% If BASPLEADDisable = 1 Then 'ASP.NETモード %>

<% 'アップロードファイルのフォーム要素名 %> <% '保存先フォルダ(実体パス) %> <% '全フォーム要素名の羅列(onLoadで取得される) %> "><% '再ポスト先URL %> <% ' %> <% Else %> <% End If %> <% Response.Write(HtmlDesign(8)) Response.Write(HttpL1(4)) Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "ユーザー管理", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("戻る", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("ユーザー管理", "Excelデータのインポート")) Response.Write(HttpL5("全てのユーザーを表示しています。")) %>

Microsoft Excelで作成された商品データを取り込むことができます。

Excelデータファイルは以下の様式で、Excel97-2003形式で作成されたものが利用できます。

<% = Spacer(1,8) %> ★左詰め5列で必要なデータを記入してください。 <% = Spacer(1,8) %> ★全てのセルの種類を文字列に指定してください。標準で入力されたセルは正しく取り込まれないことがあります。 <% = Spacer(1,8) %> ★名称・略名称・定価列は必須項目です。 <% = Spacer(1,8) %> ★名称は20文字（半角40文字）まで、略名称は10文字（半角20文字）まで入力できます。 <% = Spacer(1,8) %> ★定価は10桁までの整数のみ入力できます。 <% = Spacer(1,8) %> ★標準消費税率は100未満で、小数2位まで入力できます。 ※標準消費税率が未指定の場合は演習の標準消費税率が適用されます。 <% = Spacer(1,8) %> ★カテゴリは20文字（半角40文字）まで入力できます（未指定も可）。 <% = Spacer(1,20) %>
Excelデータファイルを選択して下さい

1行目をヘッダー行とする（1行目に商品データ以外の見出し等が存在する場合はチェックしてください）。
<% = Spacer(1,12) %> <% = Spacer(1,12) %> Excel 2007以降で作成されたファイルは事前に以下の手順で変換する必要があります。
<% = Spacer(1,8) %> ①Excel 2007以降で作成した商品データファイルをダブルクリックしExcelで開きます。 <% = Spacer(1,8) %> ②Excel画面の左上のファイルボタン（Excel2007ではOfficeボタン）をクリックします。 <% = Spacer(1,8) %> ③名前を付けて保存をクリックします。 <% = Spacer(1,8) %> ④ファイルの種類メニューから Excel97-2003ブックを選択します。 <% = Spacer(1,8) %> ⑤ファイル名欄に元のファイル名と異なるわかりやすい名前を入力し保存ボタンを押します。 <% = Spacer(1,8) %> この手順でExcel2003以前の形式のファイルが保存されますので、そのファイルを使用してください。

<% = HtmlFooter %> <% End Sub %>