| |
県の職員です。
万策尽きました。
最後の
k = "%fg%c%t" + b + "{~}" + "%n" + f + "{~}"
でうまく動きません。
やりたいことはエクセルのシートにある公告文を毎週多数htmlにして
県のホームページに入札公告としてアップロードするのですが、
数が多いため現在のコンポーザーで変換する方法を改めエクセルの
vbaで自動作成するように考えました。
webページとして保存でタイトルをつける方法は
マイクロソフトの以下のページで解説されていますが、県庁ではvbはインスト
してくれそうにありません。
エイチテーテーp://msdn2.microsoft.com/ja-jp/library/microsoft.office.tools.excel.workbook.title(VS.80).aspx
なんとかエクセルオンリーでできないでしょうか。
Sub Macro1()
Dim b As Variant, f As Variant
Dim k As Variant
f = Sheets("入力").Range("$b$5").Value
b = 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
ActiveSheet.Paste
Range("A162").Select
Application.CutCopyMode = False
Selection.Hyperlinks(1).SubAddress = "Sheet1!A1"
k = "%fg%c%t" + b + "{~}" + "%n" + f + "{~}"
Application.SendKeys k
'できればつくるhtmlファイルを上書きできるようにしていただければ
'有難いです。
End Sub
|
|
きたろう
- 07/7/1(日) 16:25 -
