| |
きたろうです。自問自答です。
下のように書いてうまく動きました。疲れました。
なお、キルコマンドはファイル削除コマンドで閲覧者の方に
危険ですのでキルと書いておきました。
最初mht（mhtml）ファイルで書き出した後、再度htmlで
書き出しているのは、ほしいのはhtmlだけなのですが、
いきなりhtmlで書き出すと、エクセルのＡ列の各行で
左端や右端が不ぞろいになるため、mhtで書き出したあ
と再度htmlで書き出しています。
そして最後にmhtファイルをキルコマンドで削除しました。
Sub Macro1()
Dim fg As Variant, fh As Variant, t As Variant
fg = Sheets("入力").Range("$b$5").Value
fh = Sheets("入力").Range("$b$5").Value
t = fg + ".*"
If Dir("") = t Then
キル pathname:=t
End If
t = Sheets("入力").Range("$b$3").Value + "にかかる入札"
Sheets("HTML書出").Select
Range("a8:b155").Select
Selection.ClearContents
Sheets("公告書").Select
Range("A2:A146").Select
Selection.Copy
Sheets("HTML書出").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells.Select
Selection.Copy
Workbooks.Add.Title = t
ActiveSheet.Paste
Range("A162").Select
Application.CutCopyMode = False
Selection.Hyperlinks(1).SubAddress = "Sheet1!A1"
fg = fg + ".mht"
ActiveWorkbook.SaveAs Filename:= _
fg, FileFormat:= _
xlWebArchive, CreateBackup:=False
fh = fh + ".html"
ActiveWorkbook.Title = t
ActiveWorkbook.SaveAs Filename:= _
fh, FileFormat:=xlHtml, _
ReadOnlyRecommended:=False, CreateBackup:=False
キル pathname:="*.mht"
End Sub
|
|
きたろう
- 07/7/2(月) 6:45 -
