投稿者 すさん  () 投稿日時 2007/10/14 03:28:00
どうもご回答ありがとうございました。 
なんと!その会社に採用されてしまいました。 
前の人が自分でつくったのかどうかはわかりませんが、コードも見ることが出来ました。(実はVisual BasicではなくAccessについてるVBAだということが判明) 
コード全部書くとすごいことになるのでちょっとだけご紹介します: 
Sub MakeProdDetailPage(p_cnt As Integer, f_name As String, bgclr As String) 
 
    Debug.Print f_name 
    Debug.Print ProductList(p_cnt).ProdDescript 
     
    If bgclr = "" Then bgclr = "550000" 
 
    bgclr = bgcolor 
 
    pdfh = FreeFile 
    OutputFile = OutDir & f_name 
    Open OutputFile For Output As #pdfh 
 
    DoProdDetTop pdfh 
     
    f3 = FreeFile 
    MidBlkFile = InDir & "cmlk_detail_blk.html" 
    Open MidBlkFile For Input As #f3 
   
  While Not EOF(f3) 
round_again: 
      Line Input #f3, temp 
       
      If InStr(temp, "DETAIL_IMAGE") > 0 Then 
          Print #pdfh, "<img border=""0"" src=""Prod_Img/" & ProductList(p_cnt).Large_img & """ alt = """ & ProductList(p_cnt).MetaTitle & """ > " 
           
          GoTo round_again: 
      End If 
      If InStr(temp, "DETAIL_NAME_CLR") > 0 Then 
          out_str = "<td width=""99%"" colspan=""2"" bgcolor=""#" & bgclr & """>" 
          Print #pdfh, out_str 
          Debug.Print out_str 
          GoTo round_again: 
      End If 
以下条件が続く・・・ 
 
End Sub 
 
一応、できてしまったプログラムなので私自身はそんなにわからなくても、という感じがしました。しかしVBAのコード内にHTMLコードが入っているためページ内の色の変更など、コードを変える必要性も出てきます。 
VBもせっかくはじめたのでもうちょっと勉強しようと思います。ありがとうございました。