Apache-POI-HSSF-and-XSSF-快速指南-帮助文档-API-poi-3.15

Apache POI HSSF and XSSF 快速指南快速指南 帮助文档帮助文档 API poi 3 15 目录目录 1 如何创建一个新的 Workbook 3 2 如何创建一个表 3 3 如何创建单元格 3 4 如何创建日期单元格 4 5 使用不同类型的单元格 5 6 在行和单元格上的迭代 5 7 获取单元格内容 6 8 文本提取 7 9 文件与 InputStreams 7 10 对齐单元格 8 11 使用边界 9 12 填充和颜色 10 13 合并单元格 11 14 使用字体 11 15 自定义颜色 13 16 读写 14 17 在单元格中使用换行符 15 18 创建用户定义的数据格式 15 19 将单页调整为一页 16 20 设置工作表的打印区域 16 21 在工作表的页脚上设置页码 17 22 移动行 17 23 将工作表设置为选定 17 24 设置工作页的缩放倍率 18 25 创建拆分和冻结窗格 18 26 重复行和列 19 27 页眉和页脚 19 28 绘图形状 20 29 造型形状 21 30 形状和 Graphics2d 22 31 大纲 23 32 图片 23 33 命名范围和命名单元格 25 34 如何设置单元格注释 27 35 如何调整列宽以适合内容 28 36 超链接 29 37 数据验证 31 38 嵌入对象 38 39 自动过滤器 40 40 条件格式 40 41 隐藏和取消隐藏行 41 42 设置单元格属性 42 43 绘图边框 43 44 创建数据透视表 44 45 具有多种样式的单元格 富文本字符串 45 46 使用方便的函数 46 Apache POI HSSF and XSSF 快速指南 帮助文档 API poi 3 15 参考版本为 poi 3 15 代码测试所用软件 NetBeans IDE8 2 希望对大家有所帮助 提示 测试代码需要导入 poi 的全部以 jar 结尾的文件 导入到库中 2016 10 18 Tuesday 1 如何创建一个新的 如何创建一个新的 Workbook Workbook wb new HSSFWorkbook FileOutputStream fileOut new FileOutputStream workbook xls wb write fileOut fileOut close Workbook wb new XSSFWorkbook FileOutputStream fileOut new FileOutputStream workbook xlsx wb write fileOut fileOut close 2 如何创建一个表 如何创建一个表 Workbook wb new HSSFWorkbook or new XSSFWorkbook Sheet sheet1 wb createSheet new sheet Sheet sheet2 wb createSheet second sheet 注意 Excel 工作表名称不得超过 31 个字符 并且不能包含以下任何字符 0 x0000 0 x0003 冒号 反斜杠 星号 问号 正斜杠 可以使用 org apache poi ss util WorkbookUtil createSafeSheetName String nameProposal 为了安全地创建有效名称 此实用程序用空格 替换无效字符 String safeName WorkbookUtil createSafeSheetName O Brien s sales returns O Brien s sales Sheet sheet3 wb createSheet safeName FileOutputStream fileOut new FileOutputStream workbook xls wb write fileOut fileOut close 3 如何创建单元格 如何创建单元格 Workbook wb new HSSFWorkbook Workbook wb new XSSFWorkbook CreationHelper createHelper wb getCreationHelper Sheet sheet wb createSheet new sheet 创建一个行并在其中放置一些单元格 行号从 0 开始 Row row sheet createRow short 0 创建一个单元格并在其中放入一个值 Cell cell row createCell 0 cell setCellValue 1 或在一行上 row createCell 1 setCellValue 1 2 row createCell 2 setCellValue createHelper createRichTextString This is a string row createCell 3 setCellValue true 将输出写入文件 FileOutputStream fileOut new FileOutputStream workbook xls wb write fileOut fileOut close 4 如何创建日期单元格 如何创建日期单元格 Workbook wb new HSSFWorkbook Workbook wb new XSSFWorkbook CreationHelper createHelper wb getCreationHelper Sheet sheet wb createSheet new sheet 创建一个行并在其中放置一些单元格 行为 0 Row row sheet createRow 0 创建一个单元格并在其中放置一个日期值 第一个单元格没有样式 作为日期 Cell cell row createCell 0 cell setCellValue new Date 我们将第二个单元格设置为日期 和时间 重要的是 从 Workbook 创建一个新的单元格样式 否则你可以结束 修改内置样式 不仅影响这个单元格 而且影响其他单元格 CellStyle cellStyle wb createCellStyle cellStyle setDataFormat createHelper createDataFormat getFormat m d yy h mm cell row createCell 1 cell setCellValue new Date cell setCellStyle cellStyle 你也可以将日期设置为 java util Calendar cell row createCell 2 cell setCellValue Calendar getInstance cell setCellStyle cellStyle 将输出写入文件 FileOutputStream fileOut new FileOutputStream workbook xls wb write fileOut fileOut close 5 使用不同类型的单元格 使用不同类型的单元格 Workbook wb new HSSFWorkbook Sheet sheet wb createSheet new sheet Row row sheet createRow short 2 row createCell 0 setCellValue 1 1 row createCell 1 setCellValue new Date row createCell 2 setCellValue Calendar getInstance row createCell 3 setCellValue a string row createCell 4 setCellValue true row createCell 5 setCellType CellType ERROR 将输出写入文件 FileOutputStream fileOut new FileOutputStream workbook xls wb write fileOut fileOut close 6 在行和单元格上的迭代 在行和单元格上的迭代 在某些情况下 在迭代时 您需要完全控制如何处理缺失或空白行和单元格 并且您需要确保访问每个单元格 而不仅仅是文件中定义的单元格 CellIterator 只会返回文件中定义的单元格 这主要是具有值或样式的单元格 但它取决于 Excel 在这些情况下 您应该获取行的第一列和最后一列信息 然后调用 getCell int MissingCellPolicy 来获取单元格 使用 MissingCellPolicy 控制如何处理空白或空单元格 决定要处理的行 int rowStart Math min 15 sheet getFirstRowNum int rowEnd Math max 1400 sheet getLastRowNum for int rowNum rowStart rowNum rowEnd rowNum Row r sheet getRow rowNum if r null 这整行是空的 根据需要处理它 continue int lastColumn Math max r getLastCellNum MY MINIMUM COLUMN COUNT for int cn 0 cn lastColumn cn Cell c r getCell cn Row RETURN BLANK AS NULL if c null 此单元格中的电子表格为空 else 做一些有用的单元格的内容 7 获取单元格内容 获取单元格内容 要获取单元格的内容 你首先需要知道它是什么样的单元格 例如 要求字符串单元格的数字 内容会得到一个 NumberFormatException 因此 您将需要打开单元格的类型 然后为该单元格调用适当的 getter 在下面的代码中 我们循环遍历每个单元格 打印出单元格的引用 例如 A3 然后打印单元格 的内容 DataFormatter formatter new DataFormatter Sheet sheet1 wb getSheetAt 0 for Row row sheet1 for Cell cell row CellReference cellRef new CellReference row getRowNum cell getColumnIndex System out print cellRef formatAsString System out print 通过获取单元格值并应用任何数据格式 日期 0 00 1 23e9 1 23 等 获取单元格中显示的 文本 String text formatter formatCellValue cell System out println text 或者 自己获取值和格式化 switch cell getCellTypeEnum case CellType STRING System out println cell getRichStringCellValue getString break case CellType NUMERIC if DateUtil isCellDateFormatted cell System out println cell getDateCellValue else System out println cell getNumericCellValue break case CellType BOOLEAN System out println cell getBooleanCellValue break case CellType FORMULA System out println cell getCellFormula break case CellType BLANK System out println break default System out println 8 文本提取 文本提取 对于大多数文本提取需求 标准 ExcelExtractor 类应该提供了您所需要的 InputStream inp new FileInputStream workbook xls HSSFWorkbook wb new HSSFWorkbook new POIFSFileSystem inp ExcelExtractor extractor new ExcelExtractor wb extractor setFormulasNotResults true extractor setIncludeSheetNames false String text extractor getText 对于非常奇特的文本提取 XLS 到 CSV 等 看看 src examples src org apache poi hssf eventusermodel examples XLS2CSV mra java 9 文件与 文件与 InputStreams 打开 Workbook xls HSSFWorkbook 或 xlsx XSSFWorkbook 时 可以从文件或 InputStream 加载 Workbook 使用 File 对象允许较低的内存消耗 而 InputStream 需要更多的内存 因为它必 须缓冲整个文件 如果使用 WorkbookFactory 很容易使用一个或另一个 使用文件 Workbook wb WorkbookFactory create new File MyExcel xls 使用 InputStream 需要更多内存 Workbook wb WorkbookFactory create new FileInputStream MyExcel xlsx 如果直接使用 HSSFWorkbook 或 XSSFWorkbook 通常应该通过 POIFSFileSystem 或 OPCPackage 来完全控制生命周期 包括完成后关闭文件 HSSFWorkbook File NPOIFSFileSystem fs new NPOIFSFileSystem new File file xls HSSFWorkbook wb new HSSFWorkbook fs getRoot true fs close HSSFWorkbook InputStream 需要更多内存 NPOIFSFileSystem fs new NPOIFSFileSystem myInputStream HSSFWorkbook wb new HSSFWorkbook fs getRoot true XSSFWorkbook File OPCPackage pkg OPCPackage open new File file xlsx XSSFWorkbook wb new XSSFWorkbook pkg pkg close XSSFWorkbook InputStream 需要更多内存 OPCPackage pkg OPCPackage open myInputStream XSSFWorkbook wb new XSSFWorkbook pkg pkg close 10 对齐单元格 对齐单元格 public static void main String args throws Exception Workbook wb new XSSFWorkbook or new HSSFWorkbook Sheet sheet wb createSheet Row row sheet createRow short 2 row setHeightInPoints 30 createCell wb row short 0 CellStyle ALIGN CENTER CellStyle VERTICAL BOTTOM createCell wb row short 1 CellStyle ALIGN CENTER SELECTION CellStyle VERTICAL BOTTOM createCell wb row short 2 CellStyle ALIGN FILL CellStyle VERTICAL CENTER createCell wb row short 3 CellStyle ALIGN GENERAL CellStyle VERTICAL CENTER createCell wb row short 4 CellStyle ALIGN JUSTIFY CellStyle VERTICAL JUSTIFY createCell wb row short 5 CellStyle ALIGN LEFT CellStyle VERTICAL TOP createCell wb row short 6 CellStyle ALIGN RIGHT CellStyle VERTICAL TOP Write the output to a file FileOutputStream fileOut new FileOutputStream xssf align xlsx wb write fileOut fileOut close 创建一个单元格并以某种方式对齐它 param wbWorkbook param row 创建单元格的行 param column 创建单元格的列号 param 对齐单元格的水平对齐 private static void createCell Workbook wb Row row short column short halign short valign Cell cell row createCell column cell setCellValue Align It CellStyle cellStyle wb createCellStyle cellStyle setAlignment halign cellStyle setVerticalAlignment valign cell setCellStyle cellStyle 11 使用边界 使用边界 Workbook wb new HSSFWorkbook Sheet sheet wb createSheet new sheet 创建一个行并在其中放置一些单元格 行为 0 Row row sheet createRow 1 创建一个单元格并在其中放入一个值 Cell cell row createCell 1 cell setCellValue 4 使用边框为单元格设置样式 CellStyle style wb createCellStyle style setBorderBottom CellStyle BORDER THIN style setBottomBorderColor IndexedColors BLACK getIndex style setBorderLeft CellStyle BORDER THIN style setLeftBorderColor IndexedColors GREEN getIndex style setBorderRight CellStyle BORDER THIN style setRightBorderColor IndexedColors BLUE getIndex style setBorderTop CellStyle BORDER MEDIUM DASHED style setTopBorderColor IndexedColors BLACK getIndex cell setCellStyle style 将输出写入文件 FileOutputStream fileOut new FileOutputStream workbook xls wb write fileOut fileOut close 12 填充和颜色 填充和颜色 Workbook wb new XSSFWorkbook Sheet sheet wb createSheet new sheet 创建一个行并在其中放置一些单元格 行为 0 Row row sheet createRow short 1 Aqua 背景 CellStyle style wb createCellStyle style setFillBackgroundColor IndexedColors AQUA getIndex style setFillPattern CellStyle BIG SPOTS Cell cell row createCell short 1 cell setCellValue X cell setCellStyle style 橙色 前景 前景是填充前景而不是字体颜色 style wb createCellStyle style setFillForegroundColor IndexedColors ORANGE getIndex style setFillPattern CellStyle SOLID FOREGROUND cell row createCell short 2 cell setCellValue X cell setCellStyle style 将输出写入文件 FileOutputStream fileOut new FileOutputStream workbook xls wb write fileOut fileOut close 13 合并单元格 合并单元格 Workbook wb new HSSFWorkbook Sheet sheet wb createSheet new sheet Row row sheet createRow short 1 Cell cell row createCell short 1 cell setCellValue This is a test of merging sheet addMergedRegion new CellRangeAddress 1 第一行 基于 0 1 最后一行 0 based 1 第一列 基于 0 2 最后一列 从 0 开始 将输出写入文件 FileOutputStream fileOut new FileOutputStream workbook xls wb write fileOut fileOut close 14 使用字体 使用字体 Workbook wb new HSSFWorkbook Sheet sheet wb createSheet new sheet 创建一个行并在其中放置一些单元格 行为 0 Row row sheet createRow 1 创建一个新的字体并修改它 Font font wb createFont font setFontHeightInPoints short 24 font setFontName Courier New font setItalic true font setStrikeout true 字体设置为样式 以创建一个新的来使用 CellStyle style wb createCellStyle style setFont font 创建一个单元格并在其中放入一个值 Cell cell row createCell 1 cell setCellValue This is a test of fonts cell setCellStyle style 将输出写入文件 FileOutputStream fileOut new FileOutputStream workbook xls wb write fileOut fileOut close 注意 Workbook 中唯一字体的最大数量限制为 32767 最大正短 您应该在应用程序中重 用字体 而不是为每个单元格创建字体 例子 Wrong for int i 0 i 10000 i Row row sheet createRow i Cell cell row createCell short 0 CellStyle style workbook createCellStyle Font font workbook createFont font setBoldweight Font BOLDWEIGHT BOLD style setFont font cell setCellStyle style Correct CellStyle style workbook createCellStyle Font font workbook createFont font setBoldweight Font BOLDWEIGHT BOLD style setFont font for int i 0 i 10000 i Row row sheet createRow i Cell cell row createCell short 0 cell setCellStyle style 15 自定义颜色 自定义颜色 HSSF HSSFWorkbook wb new HSSFWorkbook HSSFSheet sheet wb createSheet HSSFRow row sheet createRow short 0 HSSFCell cell row createCell short 0 cell setCellValue Default Palette 从标准调色板应用一些颜色 如前面的例子 我们将在石灰背景上使用红色文本 HSSFCellStyle style wb createCellStyle style setFillForegroundColor HSSFColor LIME index style setFillPattern HSSFCellStyle SOLID FOREGROUND HSSFFont font wb createFont font setColor HSSFColor RED index style setFont font cell setCellStyle style 保存为默认调色板 FileOutputStream out new FileOutputStream default palette xls wb write out out close 现在 让我们在调色板中替换 RED 和 LIME 具有更有吸引力的组合 可爱地借用了 freebsd org cell setCellValue Modified Palette 为 Workbook 创建自定义调色板 HSSFPalette palette wb getCustomPalette 用 freebsd org red 替换标准红色 palette setColorAtIndex HSSFColor RED index byte 153 RGB red 0 255 byte 0 RGB green byte 0 RGB blue 用 freebsd org 金取代石灰 palette setColorAtIndex HSSFColor LIME index byte 255 byte 204 byte 102 用修改的调色板保存 注意 无论我们以前使用过 RED 还是 LIME 新颜色神奇地出现 out new FileOutputStream modified palette xls wb write out out close XSSF XSSFWorkbook wb new XSSFWorkbook XSSFSheet sheet wb createSheet XSSFRow row sheet createRow 0 XSSFCell cell row createCell 0 cell setCellValue custom XSSF colors XSSFCellStyle style1 wb createCellStyle style1 setFillForegroundColor new XSSFColor new java awt Color 128 0 128 style1 setFillPattern CellStyle SOLID FOREGROUND 16 读写 读写 InputStream inp new FileInputStream workbook xls InputStream inp new FileInputStream workbook xlsx Workbook wb WorkbookFactory create inp Sheet sheet wb getSheetAt 0 Row row sheet getRow 2 Cell cell row getCell 3 if cell null cell row createCell 3 cell setCellType CellType STRING cell setCellValue a test Write the output to a file FileOutputStream fileOut new FileOutputStream workbook xls wb write fileOut fileOut close 17 在单元格中使用换行符 在单元格中使用换行符 Workbook wb new XSSFWorkbook or new HSSFWorkbook Sheet sheet wb createSheet Row row sheet createRow 2 Cell cell row createCell 2 cell setCellValue Use n with word wrap on to create a new line 启用换行符 你需要设置一个单元格样式与 wrap true CellStyle cs wb createCellStyle cs setWrapText true cell setCellStyle cs 增加行高以容纳两行文本 row setHeightInPoints 2 sheet getDefaultRowHeightInPoints 调整列宽以适合内容 sheet autoSizeColumn short 2 FileOutputStream fileOut new FileOutputStream ooxml newlines xlsx wb write fileOut fileOut close 18 创建用户定义的数据格式 创建用户定义的数据格式 Workbook wb new HSSFWorkbook Sheet sheet wb createSheet format sheet CellStyle style DataFormat format wb createDataFormat Row row Cell cell short rowNum 0 short colNum 0 row sheet createRow rowNum cell row createCell colNum cell setCellValue 11111 25 style wb createCellStyle style setDataFormat format getFormat 0 0 cell setCellStyle style row sheet createRow rowNum cell row createCell colNum cell setCellValue 11111 25 style wb createCellStyle style setDataFormat format getFormat 0 0000 cell setCellStyle style FileOutputStream fileOut new FileOutputStream workbook xls wb write fileOut fileOut close 19 将单页调整为一页 将单页调整为一页 Workbook wb new HSSFWorkbook Sheet sheet wb createSheet format sheet PrintSetup ps sheet getPrintSetup sheet setAutobreaks true ps setFitHeight short 1 ps setFitWidth short 1 为电子表格创建各种单元格和行 FileOutputStream fileOut new FileOutputStream workbook xls wb write fileOut fileOut close 20 设置工作表的打印区域 设置工作表的打印区域 Workbook wb new HSSFWorkbook Sheet sheet wb createSheet Sheet1 设置第一张纸的打印区域 wb setPrintArea 0 A 1 C 2 或者 wb setPrintArea 0 sheet index 0 开始列 1 结束列 0 开始行 0 结束行 FileOutputStream fileOut new FileOutputStream workbook xls wb write fileOut fileOut close 21 在工作表的页脚上设置页码 在工作表的页脚上设置页码 Workbook wb new HSSFWorkbook or new XSSFWorkbook Sheet sheet wb createSheet format sheet Footer footer sheet getFooter footer setRight Page HeaderFooter page of HeaderFooter numPages 为电子表格创建各种单元格和行 FileOutputStream fileOut new FileOutputStream workbook xls wb write fileOut fileOut close 22 移动行 移动行 Workbook wb new HSSFWorkbook Sheet sheet wb createSheet row sheet 为电子表格创建各种单元格和行 将电子表格上的行 6 11 移到顶部 行 0 5 sheet shiftRows 5 10 5 23 将工作表设置为选定 将工作表设置为选定 Workbook wb new HSSFWorkbook Sheet sheet wb createSheet row sheet sheet setSelected true 24 设置工作页的缩放倍率 设置工作页的缩放倍率 Workbook wb new HSSFWorkbook Sheet sheet1 wb createSheet new sheet sheet1 setZoom 75 75 放大率 25 创建拆分和冻结窗格 创建拆分和冻结窗格 有两种类型的窗格可以创建 冻结窗格和分割窗格 冻结窗格按列和行进行拆分 您可以使用以下机制创建冻结窗格 sheet1 createFreezePane 3 2 3 2 前两个参数是要拆分的列和行 后两个参数指示在右下象限中可见的单元格 拆分窗格显示方式不同 分割区域分为四个独立的工作区域 分割发生在像素级别 并且用 户能够通过将其拖动到新位置来调整分割 使用以下调用创建分割窗格 sheet2 createSplitPane 2000 2000 0 0 Sheet PANE LOWER LEFT 第一个参数是拆分的 x 位置 这是一点的 1 20 在这种情况下 点似乎等于一个像素 第二 个参数是拆分的 y 位置 再次在 1 20 的一点 最后一个参数指示当前具有焦点的窗格 这将是 Sheet PANE LOWER LEFT PANE LOWER RIGHT PANE UPPER RIGHT 或 PANE UPPER LEFT 之 一 Workbook wb new HSSFWorkbook Sheet sheet1 wb createSheet new sheet Sheet sheet2 wb createSheet second sheet Sheet sheet3 wb createSheet third sheet Sheet sheet4 wb createSheet fourth sheet 只冻结一行 sheet1 createFreezePane 0 1 0 1 只冻结一列 sheet2 createFreezePane 1 0 1 0 冻结列和行 忽略右下象限的滚动位置 sheet3 createFreezePane 2 2 创建一个分割 左下角为活动象限 sheet4 createSplitPane 2000 2000 0 0 Sheet PANE LOWER LEFT FileOutputStream fileOut new FileOutputStream workbook xls wb write fileOut fileOut close 26 重复行和列 重复行和列 可以使用 Sheet 类中的 setRepeatingRows 和 setRepeatingColumns 方法在打印输出中设置 重复的行和列 这些方法需要一个 CellRangeAddress 参数 指定要重复的行或列的范围 对于 setRepeatingRows 它应该指定要重复的行范围 列部分跨越所有列 对于 setRepeatingColums 它应该指定要 重复的列的范围 行部分跨越所有行 如果参数为 null 则重复的行或列将被删除 Workbook wb new HSSFWorkbook or new XSSFWorkbook Sheet sheet1 wb createSheet Sheet1 Sheet sheet2 wb createSheet Sheet2 将行设置为在第一个工作表上从第 4 行重复到第 5 行 sheet1 setRepeatingRows CellRangeAddress valueOf 4 5 将列设置为在第二个工作表上从 A 列重复到 C sheet2 setRepeatingColumns CellRangeAddress valueOf A C FileOutputStream fileOut new FileOutputStream workbook xls wb write fileOut fileOut close 27 页眉和页脚 页眉和页脚 示例是头的 但直接应用于脚注 Workbook wb new HSSFWorkbook Sheet sheet wb createSheet new sheet Header header sheet getHeader header setCenter Center Header header setLeft Left Header header setRight HSSFHeader font Stencil Normal Italic HSSFHeader fontSize short 16 Right w Stencil Normal Italic font and size 16 FileOutputStream fileOut new FileOutputStream workbook xls wb write fileOut fileOut close 28 绘图形状 绘图形状 POI 支持使用 Microsoft Office 绘图工具绘制形状 工作表上的形状按照组和形状的层次结 构进行组织 最顶层的形状是族长 这在板上根本不可见 要开始绘图 您需要在 HSSFSheet 类上调用 createPatriarch 这具有擦除存储在该薄片中的任何其它形状信息的效果 默认情况下 POI 将在表单中保留 形状记录 除非您调用此方法 要创建形状 您必须完成以下步骤 创建族长 创建一个定位点以将图形定位在工作表上 请教长创造形状 设置形状类型 线 椭圆 矩形等 设置关于形状的任何其他样式细节 例如 线厚度等 HSSFPatriarch patriarch sheet createDrawingPatriarch a new HSSFClientAnchor 0 0 1023 255 short 1 0 short 1 0 HSSFSimpleShape shape1 patriarch createSimpleShape a1 shape1 setShapeType HSSFSimpleShape OBJECT TYPE LINE 文本框使用不同的调用创建 HSSFTextbox textbox1 patriarch createTextbox new HSSFClientAnchor 0 0 0 0 short 1 1 short 2 2 textbox1 setString new HSSFRichTextString This is a test 可以使用不同的字体来对文本框中的文本部分进行样式 方法如下 HSSFFont font wb createFont font setItalic true font setUnderline HSSFFont U DOUBLE HSSFRichTextString string new HSSFRichTextString Woo string applyFont 2 5 font textbox setString string 正如可以使用 Excel 手动完成 可以将形状组合在一起 这是通过调用 createGroup 然后使 用这些组创建形状 也可以在组内创建组 警告 您创建的任何组都应至少包含两个其他形状或子组 以下是创建形状组的方法 创建形状组 HSSFShapeGroup group patriarch createGroup new HSSFClientAnchor 0 0 900 200 short 2 2 short 2 2 在组中创建几行 HSSFSimpleShape shape1 group createShape new HSSFChildAnchor 3 3 500 500 shape1 setShapeType HSSFSimpleShape OBJECT TYPE LINE H