小编Ram*_*eez的帖子

此代码使用一个工作表创建一个Excel文件.此表包含我创建并且工作正常的项目代码(ASR/Floor/Dept./ Item_Name/Item_details/1),但我想在此Excel文件中添加工作表以创建另一个项目代码,然后保存这个文件.

Dim xlApp As Excel.Application
Dim wb As Workbook
Dim ws As Worksheet
Dim var As Variant
Dim code As String
Dim i, nocode As Integer
Dim fname, heading As String

code = "ASR/" & Text1.Text & "/" & Text2.Text & "/" & Text3.Text & "/" & Text4.Text

Set xlApp = New Excel.Application
Set wb = xlApp.Workbooks.Add ' Create a new WorkBook
Set ws = wb.Worksheets("Sheet1") 'Specify your worksheet name

nocode = txtnocode.Text
heading = Text6.Text

For i = …

页面边距和导航栏之间显示空格,如何删除此空间

css代码

#topnav ul
{

    list-style-type:none;
    margin:0;
    padding:0;

    overflow:hidden;
}

#topnav li
{   

    float:left;
    display:inline;



}



#topnav a:link,
#topnav a:visited
{
    display:inline-block;
    width:110px;
    font-weight:bold;
    font-family:calibri;

    color:#FFFFFF;
    background-color:#98bf21;
    text-align:center;
    padding:3px;
    text-decoration:none;
    text-transform:uppercase;
}

#topnav a:hover,
#topnav a:active
{
    background-color:#7A991A;
}

HTML代码

<ul id="topnav">
    <li id="topnav"><a  href="#home">Home</a></li>
    <li id="topnav"><a  href="#news">OPD</a></li>
    <li id="topnav"><a  href="#news">IPD</a></li>
    <li id="topnav"><a  href="#news">Infrastucture</a></li>
    <li id="topnav"><a  href="#news">Gallery</a></li>
    <li id="topnav"><a  href="#news">Media</a></li>
    <li id="topnav"><a  href="#contact">Site Map</a></li>
    <li id="topnav"><a  href="#about">About</a></li>
    <li id="topnav"><a  href="#about">Nursing</a></li>
</ul>